Stopuhr programmieren

[Sertrain]

Ich danke dir.

[Sertrain]

Code:

begin
 If (Button1.Caption = 'Start') then
  begin
   startzeit := GetTickCount;
   Button1.Caption := 'Stop';
   label1.Caption := 'Uhr läuft';
  end
 else
  begin
   endzeit := GetTickCount;
   label1.Caption := label1.Caption := Format('Die Stoppuhr lief %.2f s.',[(endzeit-startzeit) / 1000]);
   Button1.Caption := 'Start';
  end;
end;

und er sagt mir: "Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter' ...

Und nun? =)

[DeddyH]

Zitat:

Delphi-Quellcode:

label1.Caption := label1.Caption :=

Einmal zuviel ;)

[Sertrain]

Huch .. ^^ wie peinlich :)