🚀 go-pugleaf

Lorenzo Dieryckx wrote
(news:IPBOb.1406$H84.327756991@hestia.telenet-ops.be):

> Ik ben bezig met een projectje in delphi.
> Jammergenoeg ben ik nog niet echt bedreven in delphi, en dus
> heb ik voor het ogenblik wat problemen waar in niet
> direct info over vind.

<snip c++>

> Ik wil dit nu vertalen naar delphi, maar als ik probeer een
> functiepointer te koppelen aan dat event, blijkt dat niet te lukken.

> Mijn probleem
> is waarschijnlijk dat ik veel te veel C++ gewend ben. Misschien
> werkt delphi wel helemaal niet op die manier, en zoek ik naar de
> verkeerde dingen.

Delphi kent ook functie pointers, maar als uitbreiding daarop heeft men
events bedacht.

> Het enige wat ik kan vinden ivm eventhandlers in
> Delphi, gaan over eventhandlers die via de object inspector gemaakt
> worden.

Die kun je ook vanuit code koppelen.

> Maar ik kan dan nergens in h��l mijn Unit een regel code vinden die
> de gecre�erde procedure koppelt aan dat bepaald event.

Nee, deze worden in de .dfm file gekoppeld (alt-f12).

> Anyway, hieronder vind je hoe ik het vertaald heb naar delphi,
> gelieve mij te helpen om de c++ code eruit te halen

 type
     foo = class
     private
         myTimer : TTimer;
         procedure myTimerTime(Sender: TObject);
     public
         constructor Create;
 end;

 constructor foo.Create;
 begin
     myTimer.onTimer := myTimerTime;        {<-- problemen}
     myTimer.Interval := 1000;
     myTimer.Enabled := True;
 end;

 procedure foo.myTimerTime(Sender: TObject);
 begin
     ShowMessage('de tijd is verstreken');
 end;


M.a.w.: de prototypes voor het event waren niet goed. Bovendien heet het
event OnTimer en niet OnTime.

--
www.zenobits.com