Zitat von
Vader:
hab was probiert:
Code:
var
Count: Integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(Inc(Count));
end;
aber alles geht so schnell und läuft nicht unendlich.
mfg Vader
Schnelligkeit: Timer.Intervall hilft dir
Unendlich: was meinst du damit? Das läuft bis der Interger "voll" ist. Wenn das nicht reicht nimm cardinal/int64