Hi.
Ich habe hier eine feste Anzahl (20) von Dingen, die mein Programm gleichzeitig ausführen sollte (weils nacheinander zu lange dauert).
Da für diese Aufgabe Threads viel zu kompliziert sind, habe ich mir gedacht, ich kann das bestimmt mit Timern auch machen.
Also 20 Timer auf das Form geklatscht und in einem ButtonClick einfach alle auch Enabled gesetzt.
Funktioniert - wird alles gleichzeitig gemacht...
Jetzt würde ich das gern zur Laufzeit machen. Dh. zur Laufzeit genug Timer Objekte erstellen und denen jeweils die Aufgabe geben.
Im Prinzip soll jedes Timer-Objekt das selbe machen, nur eine Variable ändert sich.
Jetzt versuche ich schon die ganze Zeit das folgendermaén zu machen:
Code:
tmp:TTimer;
...
tmp := TTimer.create(nil);
tmp.intervall := 30000;
tmp.ontimer := ...
ja - hier ist schluss... Ich würde gerne eine Prozedur einfügen, die ich oben defniniert habe.
Code:
procedure Tudas(parameter:integer);
begin
tus....
end;
und dann tmp.ontimer := tudas(1); sagen.
Aber das will nicht. Ich weiß, dass ich die Prozedur irgendwie als TNotifyEvent typen muss, aber das will Delphi auch nicht...
Weiß da jemand Rat?
Gruß
Jörn