Zeiten vergleichen

[himitsu]

Es wird wohl einfach nur so sein, das die Diverenz größer als 0,00001 ist.

Speicher einfach, ob der Code schon ausgeführt wurde

Delphi-Quellcode:

Var ausgefuehrt: Boolean;

procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject); 
begin 
  If (DateTimePicker1.Time < now) and not ausgefuehrt then 
  begin 
    ausgefuehrt := True;
    //hier der code der ausgeführt wird 
  end; 
end;


// ausgefuehrt muß natürlich vorher FALSE sein

oder schalte einfach den Timer aus

Delphi-Quellcode:

procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject); 
begin 
  If DateTimePicker1.Time < now then 
  begin 
    Timer1.Enabled := False;
    //hier der code der ausgeführt wird 
  end; 
end;