Ok, ich denke das ist jetzt so ziemlich das Ende deiner Nerven, sowie das Ende meiner Gedult...
Ich habe jetzt den Code so, nachden ich deinen Thread gelesen habe...
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
tiWecker : TTime;
tiDiff : TTime;
tiNow : TTime;
time1 : String;
time2 : String;
ini : TInifile;
begin
ini:=TInifile.Create('C:\Programme\SPM-APPS\settings.ini');
try
time1 :=ini.ReadString('Wecker','time1',text);
time2 :=ini.ReadString('Wecker','time2',text);
[color=#f60000] tiWecker := StrToTime(time2); //(21:16)
tiDiff := StrToTime(time1); //(21:15)[/color]
tiNow := Time;
if (tiNow >= tiWecker) and (tiNow < (tiWecker+tiDiff)) then MediaPlayer1.Play;
finally
ini.free;
end;
end;
end.
Naja, was macht's?? Klingeling... auch noch um 21:20... in 10 Jahren um 22:20 bestimmt auch noch. *anfallbekomm*
Wo ist der Fehler?
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]