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? =)