Hans,
Wellicht wil je in de code kijken.
Hopelijk heb je windows terug.

Het volgende :
Het programma draait en ben doende met ombouw van DBEdit naar Edit.

Als je compileerd en start, dan een willekeurige podo selecteren en naar patienten gaan.

Dan ff programma stoppen en de DB TrouwX zetten in de directory C:hengistDB

Start opnieuw en alleen bij patienten naar geboorte datum gaan.

Als je deze handmatig wijzigd en wijzigingen opslaan doet gaat het goed

Zodra je de calender gebruikt en dubbelclickt krijg je een fout bij "customform" regel 1817

Enig idee??

Dank

Gerard

Hoi Hans,

Ik heb de "fout" gevonden. Raar maar waar..................

Als je een veld TDateEdit heb en je gebruikt de kalender voor invoer/wijziging datum en dubbelclick de gewenste datum en je hebt ook in de Object inspector een stuk code staan on "OnActivate", dan wordt niet alleen de datum uitgevoerd maar ook de code onder "OnActivate". Door deze code te verplaatsen naar "OnShow" is het probleem verholpen. De fout melding die ik kreeg werd dus door niet uitvoerbare code (wat je niet verwachte) veroorzaakt.

Raad maar waar.................

Nu de aanpassingen doen, wegens alle wijzigingen die ik aangebracht had, die NIET noodzakelijk waren.

Wellicht weer iets voor een artikel.

Gerard

Hoi Gerard!

Leuk om te horen dat je zelf ontdekt hebt wat het euvel was. Ik heb genoeg voer voor een hoop artikelen. Nu nog tijd vinden en een werkplekje maken ... 

Ja Hans, doe dat vind tijd en een werkplek  

Tijd krijg je dagelijks elke keer weer 24 uur voor de komende dag bij de start van de dag.
Het probleem is dat er zoveel andere dingen moeten gebeuren en dat daardoor je tijd weer op is. 

Een werkplek is meer een luxe!! In de jaren 70/80 sliep ik vaak op de stoel achter mijn bureau met mijn hoofd op het toetsenboard tijdens het compileren (dat duurde soms 3 a 4 uur), met een bel erin zodat ik weer wakker werd om verder te gaan.
kwam dan dagen niet van achter me bureau vandaan. Wat een tijd he.

Succes,

Kom snel weer met het volgende probleem.

Gerard

Haha, ja het slapen naast de computer komt me nog bekend voor, zeker toen ik voor het eerst met Linux ging spelen ... vroeger toen het net begin op een 386SX. Compileren duurde dan vaak een hele nacht.

Ik had destijds met simpel geplastificeerd spaanplaat en een paar oude vlakke deuren een werk ruimte om m'n bed heen haha.
Ja, dat waren nog eens tijden. Tegenwoordig gaat alles op het laptopje, maar in vindt het nog steeds fijn om een werk hoekje te hebben - zeker voor de hardware projectjes waar ik weleens mee bezig ben. 

Tja Hans wat hebben we nu een luxe, toch hadden die oude tijden zijn charme. 

Soms zit ik nu in een tuinstoel in met een glas bier naast me in de zon te programmeren. Of op een luxe kantoor met alle gemakken.

Heb je nog tips voor me om te starten met het ophalen van gegevens van een andere internet locatie.

Had je laatst al de hmtl code gezonden, maar geen idee hoe ik dat moet starten vanuit lazarus.

Dank en succes

Gerard

Waarom zou dit niet mogen?

      IF Strt[ii] = ' ' THEN Strt[ii+1]:=UpperCase(Strt[ii+1])

Ehm ... goede vraag.

Als eerste: als je geen gewone strings gebruikt (UTF/etc) dan kan een character meer dan 1 byte lang zijn.
En als je het vergelijkt vermoed ik dat je "chr" moet gebruiken. Ik loop hier zelf ook altijd mee te klooien.

Als je woorden met een hoofdletter wilt laten beginnen, zie dan ook deze forum post.

Het zijn gewone strings. Het gaat niet op de eerste hoofdletter maar om de tweede.
het was de bedoeling om het tweede of derde woord, wat direct na een spatie komt in hoofdletter te zetten.

Nu gaat het wel met de code:

    Strt:=UpperCase(DStraat.Caption[1]);

    FOR ii:=2 TO Length(DStraat.Caption) DO

    IF Strt[ii-1] = ' ' THEN

      Strt:=Strt+UpperCase(DStraat.Caption[ii])

    ELSE

      Strt:=Strt+LowerCase(DStraat.Caption[ii]);  

HELP

KRIJG INEENS EEN VOLGENDE EXIT EN WEET NIET WAAROM

  if FActiveControl = AWinControl then exit;  (regel 1800 uit custumform)

Kan niet verder!!

Enige idee waarom?

Tja, das un goeie ... haha

Ik zou zo 1-2-3 niet weten waar dat vandaan gaat komen.
Heb je wat meer info? Foutmelding? Welke unit?

Unit Curstumform.

{------------------------------------------------------------------------------

       TCustomForm SetActiveControl

------------------------------------------------------------------------------}

procedure TCustomForm.SetActiveControl(AWinControl: TWinControl);

begin                                                                                     

Lijkt op een "OnShow" or "OnActivate" event die iets anders ook nog eens triggered in jouw code.

Wat is de precieze melding die je krijgt? Of is het een van die lekker vage meldingen waar niemand iets aan heeft?

Ja dat kostte weer uren zoeken.

Bij ActiveControle in de ObjectInspector van Form1:TForm1 stond een spatie.
Waarschijnlijk daar gekomen toen ik wederom mijn scherm activeren na slapen.

Opgelost.

Dank

Hoi Hans,

De vakanties weer over en hopelijk ben je ook weer genesteld in je nieuwe onderkomen.

Gaat alles goed?

Ik zoek nog steeds hulp (eventueel betaald) met het connecten vanuit het programma met een andere database online, met alle check of er verbinding is en derdelijke. Daar dan info te geven, info terug te krijgen en in mij eigen DB te verwerken.

Weet jij iemand, of kan je het zelf?

Groetjes

Gerard