Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.Timer1Timer(Sender: TObject);
var ini:Tinifile;
var Wecker:String ;
begin
ini:=TInifile.create('C:\Programme\SPM-Apps\SCC.ini');
try
Wecker:=ini.ReadString('Wecker','Time',text);
finally
ini.Free;
end;
caption := TimeToStr(now);
if TimeToStr(now) >= 'wecker' then
begin
timer1.enabled:=false;
MediaPlayer1.Play;
Showmessage(TimeToStr(now));
end;
end;
end. |
Das ist mein Code. Er soll sagen, dass sich der Wecker (Timer1) eine Eingestellte Zeit aus der Ini läd. Dazu habe ich eine Variable genommen und sie die Zeit einlesen lassen. Dann, bei dem Zeitenvergleich habe ich die Variable eingesetzt. Jetzt gehts nicht mehr, Vorher schon...
Könnte ihr mir helfen[/code]
