Also, ich möchte ca. 30sec. nach einem Start etwas ausführen.

markieren

Code:

 start:=now;
...
 if round((now-start)*10000) > 3 then

Witzigerweise stimmt gedanklich alles; wenn die Routine läuft, geht es nie, obwohl die Bedingungen true sind.


Zur Überlegung:
now:TDateTime // ist Double
1.0 = 1 Tag
1/86400 = 1 Sec. = 0.000011574
mal 30 (also 30sec.) = 0.000347222
mal 10000 (um es gut runden zu können) = 3.47222...
round(dasda) = 3 oder 4, also in jedem Fall und zeitlich später sowieso: >3

Aber es geht nicht!!!


Wieso?

Hi SearchBot,

warum verwendest du nicht einen Timer mit Interval=30000?

Du könntest aber auch die Startzeit speichern (start := now) und anschließend so überprüfen:

markieren

Delphi-Quellcode:

if now > start+EncodeTime(0,0,30,0) then
..

Greetz
alcaeus

Warum verwendest Du nicht SecondsBetween?

Zitat von SearchBot:

Also, ich möchte ca. 30sec. nach einem Start etwas ausführen.

Delphi stellt haufenweise Datum & Zeit Funktionen zur Verfügung. Schau doch einfach in die Hilfedatei.
Da wirst du bestimmt das passende finden.

zusammenfalten · markieren

Delphi-Quellcode:

var
  Stop: TDateTime;
begin

  Stop := Now + EncodeTime(0, 0, 30, 0);

  while Stop > Now do
  begin
    Sleep(125);
    Application.ProcessMessages;
  end;

  ShowMessage('Fertig.');

end;

Ich Depp!

Ich hab meinen Fehler gefunden.

HIER hab ichs richtig geschrieben
round((now-start)*10000) Und in meinem Quelltext
(round(now-start)*10000) Ihr seht den Unterschied?!


Ouh Mann, sowas hält nur auf; trotzdem Danke für Eure Beteiligung!