Terminplaner

[Z32]

Hallo,

Ich habe mir vorgennomen, ein Erinnerungsprogramm in abgespeckter Form zu schreiben. Alles auch schön und gut. Ich habe aber noch ein entscheidenes Problem, was ich nicht gelöst bekomme und absolut merkwürdig finde.

Also es geht darum:
Ich möchte zu jedem Termin eingeben können wann er mich an diesen Eintag erinnert. Also z.B. 14.06.2006 16:00 soll es klinkeln. Ich habe mir gedacht, dass ich die Uhrzeit und das Datum einfach zusammen schreibe, also Datum Lerrstelle Uhrzeit und dann diese Kombination in eine txt Datei speichere. Und wenn man das Programm startet liest er diese Datei aus und schreibt sich den Wert in eine Variable. Dann kann man ja im Timer vergleichen, wann der Zeitpunk gekommen ist. Pustekuchen, klapp irgentwie nicht. Wenn der Zeitpunkt gekommen ist tut sich nichts.

Aber hier ein bisschen Code. Zur Info es ist eine Testversion, also nur ob das mit der Ringfunction funst.

Delphi-Quellcode:

var eingabe: string;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := timetostr (time); //Label wird mit Uhrzeit gefüllt
label2.Caption := datetostr (date); //Label wird mit Datum gefüllt
label3.caption := label1.caption+'   '+label2.caption; //Datum und Uhrzeit werden zusammen geschrieben
if label4.caption = label3.caption then //Label 4 wird unten mit Inhalt gefüllt
showmessage('ring, ring...');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.SaveToFile('uhr.txt'); //Eingegebener termin wird abgespeichert
showmessage('Änderungen werden erst bei dem nächsten Programmstart wirgsam');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo2.lines.LoadFromFile('uhr.txt'); //Memo wird mit der txt Datei gefüttert
eingabe := memo2.Text; //Übertragen von dem Wert in eine Variable
label4.caption := eingabe; //Übertragen in Label 4
end;

end.

Ich verstehe jetzt nicht warum das nicht geht ??? Ich sehe keinen Fehler und er Compiler hat auch keinen gefunden.

[fkerber]

Hi!

Du solltest keine Strings vergleichen, wenn du Daten vergleich willst.
Egal wie du vergleichst, solltest du auch nie auf Gleichheit prüfen, da die Bedingung dann nur genau eine Sekunde erfüllt wäre und die Chance, genau dann zu überprüfen, ist sehr gering.

Also eher testen, ob aktuelle Zeit > eingestellter Zeit - und dieser Vergleich geht eben am einfachsten mit einem TimeStamp o.ä.


Ciao Frederic

[Z32]

Aso..also der Timmer ist zu lahm um genau die Sekunde zu treffen.

Soweit habe ich deine Antwort verstanden, nur ich weiß momentan nicht, was ein TimeStamp ist. Könntest du mir das vielleicht erklären. Oder ist das nur ein andres Wort für Timer ???

[fkerber]

Hi!

Jepp, Timer ist sozusagen zu lahm...

Aber TimeStamp ist etwas anderes als ein Timer. z.B. gibt es da den Unix-TimeStamp der eigentlich nur die Sekunden ab dem 01.01.1970 zählt...

Ist aber für dein Vorhaben nicht unbedingt notwendig.
Schau mal nach Sachen wie FormatDateTime, Timetostr, now etc.


Ciao Frederic

[Z32]

mhh, also strtotime und now ect, kenne ich eigentlich. Ich weiß momentan jetzt nich worauf du hinaus möchtest. Und wie ich mit den Befeheln mein Problem lösen könnte.

[Ratte]

ganz einfach: Du wandelst die Zeit mittels Strtotime in einen TDatetime wert und vergleichst diesen mit now.

[Z32]

aber ich brauche ja auch noch das datum, das ist ja auch wichtig.

[fkerber]

Hi!

Dann solltest du dich auch nach Datetostr und umgekehrt schauen...


Ciao Frederic

[Z32]

gut, ok, ich glaube ich has gleich.

Aber noch eine Frage.

now ist die aktuelle Uhrzeit und ist so aufgebaut, oder 00:00:00

Aber wie heißt den der Befehl für das aktuelle datum ??

[Ratte]

now übergibt ein TDatetime, dass sowohl das Datum als auch die Uhrzeit enthält.
mfg,
Ratte