so, habe doch gleich nochmal neu angefangen zu werkeln. ich habe das jetzt so gemacht wie in dem Beitrag vor mir beschrieben, doch an einer Stelle mekert der Compiler immer noch. Ich finde aber denn Fehler nicht.
Stelle im Code:
if now>= strtodatetime weckzeit then
Fehlermedlung des Compilers:
[Fehler] Unit1.pas(60): Es gibt keine überladene Version von 'StrToDateTime', die man mit diesen Argumenten aufrufen kann
Hier nochmal der gesamte neue Code. ich denke er ist diesmal realativ übersichtlich
Delphi-Quellcode:
var weckzeit: string;
procedure TForm1.Button1Click(Sender: TObject); //bei klick soll die weckzeit abgespeichert werden
begin
memo1.lines.SaveToFile('aus.txt');
showmessage('Die Ändernungen werden erst nach dem nächsten Programmstart wirksam');
end;
procedure TForm1.FormCreate(Sender: TObject); //beim öffnen soll die var weckzeit mit der Datei gefüttert werden
begin
memo3.lines.LoadFromFile('aus.txt');
weckzeit := memo3.Text;
label7.caption := (weckzeit);
end;
procedure TForm1.Timer1Timer(Sender: TObject); //der vergleich des timers
begin
label1.caption := timetostr (now);
label2.caption := datetostr (now);
if now>= strtodatetime weckzeit then
begin
showmessage('Ringgggg');
timer1.Enabled:=false;
end;
end;
end.
Also ich habe auch geprüft, ob die weckzeit richtig abgespeichrt wird und nachher auch wieder richtig in der var steht.