Registriert seit: 15. Nov 2004
2.647 Beiträge
|
Re: Wecker
30. Sep 2006, 17:05
So könnte man es machen:
Einfach den Code der unteren Prozedur in einen Timer mit Interval=1000 einsetzen und datetime noch bei der Form eintragen.
Delphi-Quellcode:
procedure TfrmMain.datetime(const strDateTime: string; out strDate, strTime: String);
var i: Integer;
begin
i := Pos('/', strDateTime);
strTime := Copy(strDateTime, i+2, i);
strDate := Copy(strDateTime, 1, length(strDateTime)-i+1);
end;
procedure TfrmMain.Timer1Timer...; // Interval = 1000
var sysDate, sysTime : String;
begin
datetime(lvTasks.Items.Item[i].SubItems[1], d, t);
getDateTime(sysDate, sysTime);
if sysDate = d then
begin
if sysTime = t then
begin
end;
end;
end;
|
|
Zitat
|