Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
14. Mai 2006
Ganz einfach so:
var
Form1: TForm1;
CounterVar: Integer = 0; // <= wichtig, initialisieren!
implementation
{$R *.DFM}
Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
14. Mai 2006
Hi,
ein Delay in einem Timer ist irgendwie unlogisch. Ich würde wohl den Timer auf ein Intervall wie 1 Sek stellen (gehen natürlich auch kleinere), eine Variable hochzählen lassen und so die Wartezeit umsetzen:
inc(CounterVar);
...
// bei Intervall 1000 sind das nun 2 Sek
if CounterVar = 2 then