Weiterlernen

[teodorfon]

Zitat von SProske:

Auch unter Delphi 7 solltest du DateUtils in den uses einbinden können:

Delphi-Quellcode:

implementation

uses
  DateUtils;

Achsoooooo.
Ehm,ok jetzt klappt fast alles nur dass sich der timer nicht wiederholt.Die labele zeigt nur 00:00:59 an,und nach einer sekunde bleibt es auf 00:00:59.

Delphi-Quellcode:

var
  Form1: TForm1;
  TotalTime,x:TTime;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
totaltime := IncSecond (0, 60);
totaltime := IncSecond (totaltime,-1); //Versucht durch "x" variable zu ersetzen,gleiches resultat.
label1.Caption:=Timetostr(totaltime );

end;

end.