Thema: Delphi Schleife und Timer

Einzelnen Beitrag anzeigen

Asatru

Registriert seit: 30. Mai 2007
Ort: Leipzig
78 Beiträge
 
#5

Re: Schleife und Timer

  Alt 24. Jun 2007, 20:02
Delphi-Quellcode:
for i:= X TO Y DO
   begin
    { auszuführende Befehle }
   end;
das wollte ich einbauen und wenn ich nu in den klammern meine befehle mache geht nix

und wegen timer gibt es da was gutes um pausen einzulegen

in sachen vb gibts
Delphi-Quellcode:
Sub Pause(Seconds As Single)
   Dim Timer1 As Single, Timer2 As Single, currentDate As Date
   currentDate = Date
   Timer1 = Timer + Seconds
   Timer2 = Timer1 - 86400 '24 Stunden

While ((Timer() < Timer1) And (currentDate = Date)) Or _
((Timer() < Timer2) And (currentDate + 1 = Date))
DoEvents
'Andere Prozesse nicht behindern
   Wend
End Sub
ansprechbar dann mit Pause 600

gibts da sowas auch in delphi ???


ps: schleife habsch nu



mfg
  Mit Zitat antworten Zitat