Thema: Delphi Wecker

Einzelnen Beitrag anzeigen

Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#2

Re: Wecker

  Alt 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;
  Mit Zitat antworten Zitat