Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#7

Re: Newbie - Zeitgleiche Ablauf von Programmcode

  Alt 30. Okt 2003, 16:43
Bei den "System"-Komponenten ist der Timer.

Den ziehst du dir auf dein Formular.
Im Objektinspektor kannst du ein Interval in Milisekunden (1/1000-tel Sekunden) einstellen.
(5000 = 5 Sekunden)
Und wenn du jetzt noch doppelt auf den Timer (die Uhr im Formular) klickst, kommst du in die Prozedur, die dann alle "5 Sekunden" ausgeführt wird.

Delphi-Quellcode:
Var Sec: Integer;

Procedure TForm1.Timer1Timer(Sender: TObject);
  Begin
    Inc(Sec); {entspricht: Sec := Sec + 1;}
    Ausgabe.Caption := IntToStr(Sec) + ' Sekunden';
  End;
Angehängte Dateien
Dateityp: exe projects_112.exe (61,9 KB, 2x aufgerufen)
$2B or not $2B
  Mit Zitat antworten Zitat