Probleme bei Wecker

[TheMiller]

Ok, danke für deine Hilfe

nun, jetzt kommt das große ABER:
Es will auch so nicht so, wie wir wollen. Ich denke, dass das Prog so rechnet:

Code:

if (tiNow >= tiWecker) and  (tiNow < (tiWecker+tiDiff))  then MediaPlayer1.Play

WENN (jetzige Zeit größer als Weckzeit aus INI) UND (jetzige Zeit kleiner als Weckzeit+Differenz) ist, dann Spiele lied ab...

das wäre vollkommen richtig. Er will nur nicht. Kann es sein, dass es an:

-ini.Readtime,
-If-Anweisung,
-Timerintervall (bei mir 1000),
-an Inifile selbst,
-Stringumrechnung

liegt? Hier nochmal mein Code, so wie er (berichtigt ist):

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  tiWecker : TTime;
  tiDiff   : TTIme;
  tiNow    : TTIme;
  ini      : TInifile;
  time1    : TTime;
  time2    : TTime;
  begin
ini:=Tinifile.Create('C:\Programme\SPM-APSS\settings.ini');
try
time1:=ini.Readtime('Wecker','Time1',time);
time2:=ini.Readtime('Wecker','Time2',time);
  tiwecker := Time1;
  tidiff := Time2;
  tiNow   := time;
  if (tiNow >= tiWecker) and  (tiNow < (tiWecker+tiDiff)) or (tiNow  then MediaPlayer1.Play;
finally
ini.free;
end;
end;
end.

Achso, mein Ereignis liegt im OnTimer Ereignis.
Hm. kannst du es mal bitte versuchen, bei dir zu coden. Auch, wenn's geht mit Ini-File-Auslesung.

Da hast du deine Herausforderung *g*
Achso, danke nochmal. Bekommst auch mein ganzes Projekt, wenn du willst (nein, ist nicht nur der wecker *g*)

Achso, noch eins:
Was sind Delphi Tags. Werde sie benutzen, wenn ich weiss, was das ist

Ciao