Zu einer bestimmten Uhrzeit Aktion ausführen!

[Chriss]

wie? was meinst du mit "zu schnell"`??

is bei mir ein fehler drin?

[Luckie]

Ich habe es nur kurz ausprobiert und es ging zufälligerweise.

[Chriss]

was heisst "zufälligerweise"? wars genau die uhrzeit, oder warum??

irgendwie muss man doch die zeit angeben können!! :freak:

[Luckie]

So rum geht es. Frag mich aber bitte nicht warum. :wiejetzt:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  caption := TimeToStr(now);
  if TimeToStr(now) >= '09:08:40' then
  begin
    timer1.enabled:=false;
    Showmessage(TimeToStr(now));
  end;
end;

[Chriss]

HÄ???
warum läuft oben denn die zeit mit und stoppt soblat der wert erreicht is...


(melde mich gegen 16:00 Uhr wieder...vielleicht hab ich dann ne lösung)

[Luckie]

Zitat:

Zitat von Chriss

HÄ???
warum läuft oben denn die zeit mit und stoppt soblat der wert erreicht is...

Was ist denn jetzt kaputt? Ich lasse nur die Zeit in der Titelleiste anzeigen, zur Kontrolle. Und warum das anhält? Also jetzt stellst du aber echt dämliche Frage. Kuck dir den Code noch mal genau an - bitte!

[Chriss]

also, in der titalleiste läuft die zeit mit und wenn die gewünschte zeit erreicht ist... stoppt die zeit oben, die message erscheint und das wars! das verstehe ich schon, aber funktionierts so und nicht so, wie wir es vorher vorhatten?!
wie bekomme ich es denn hin, dass ich die zeit in einen edit eingeben kann und der diese zeit dann nimmt, oder aus einem memo?

[Luckie]

Ersetzt den hardgecodeten String mit der Uhrzeit doch einfach durch eine Variable oder gleich durch Edit1.Text.

Wie gesagt, wenn ich die aktuelle Zeit in einen String konvertiere und das mit einem String vergleiche geht es. Konvertiere ich den String in eine Uhrzeit geht es nicht. Ich weiß auch nicht warum.

[Chriss]

hmm, ja komisch komisch'!
DANKE... jetzt kann ich weiterarbeiten :coder: :coder:

[Delphianer]

Hallo

Es gibt drei Funktionen, die mir auf Anhieb einfallen und für das Problem interessant sind:
date: liefert den aktuellen Tag (gerechnet ab 30.12.1899)
time: liefert die Zeit als Bruchteil eines Tages seit Mitternacht
now: liefert Tag und Zeit

beispiel
date: gibt auf meinem PC für heute 37693.0 zzurück
time: gibt für beispielsweise 9:00 den Wert 0.375 zurück
now: heutige Tag 9:00 liefert 37693.375

Die drei Funktionen liefern als Ergebnis TDateTime, was in Wirklichkeit Double ist, und zwar Tage vor dem Komma (bzw. Punkt) und Uhrzeit danach.

Wenn Du also
if now > StrToTime('09:15:00')
kodierst, vergleichst Du heutiges Datum/Uhrzeit mit 9:15 30.12.1899, und das ist ziemlich lange vorbei.
timetostr und strtotime finde ich in dem Zusammenhang auch nicht so gut, da daß davon abhängt, wie Delphi Deinen String interpretiert, und daß ist vom System abhängig.

Lösungvorschlag:
Zeit in double umrechen 9:15 entspricht ((9 * 60) + 15) / 1440
und mit time vergleichen

Viele Grüße