Mit "showmessage" klappst ???
Also bei mir noch nicht, was mache ich denn falsch ??? Hier nochmal der Code mit "Showmessage"
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
var dat, tim, datdat, timtim: string;
begin
datdat := datetostr (date);
timtim := timetostr (time);
label5.Caption := (datdat);
label4.Caption := (timtim);
datum.Lines.LoadFromFile('datum.txt');
uhrzeit.Lines.LoadFromFile('uhrzeit.txt');
dat := (datum.text);
tim := (uhrzeit.text);
if (dat = datdat) AND (tim = timtim) then showmessage ('Zeit erreicht');
end;
Hat vielleicht noch einer eine andere Idee, oder sieht einen Fehler im Code ???