TTime manuell setzen?

[Sharky]

Zitat von Nicolai1605:

Wie kann ich ttime über einen Befehl um eine Minute weiter nach vorne springen lassen?

Hai Nicolai1605,
meinst Du so entwas

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  EineMinute : TTime;
  jetzt : TTime;
begin
  EineMinute := EncodeTime (0,1,0,0);  // Eine Minute
  jetzt := Time;
  Label1.Caption := TimeToStr (jetzt); // Aktuelle Zeit
  Label2.Caption := TimeToStr (jetzt + EineMinute);  // Aktuele Zeit + 1 Minute
end;