uhr mit TTimer

[Sir Rufo]

Quelltext ordentlich und sachlich richtig formatieren zeigt den Fehler:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  if sec < 60
  then
    sec := sec+1
  else
    sec := 1;

  min := min + 1;
  Labellabel1.Caption:= inttostr( std ) + ':' + inttostr( min ) + ':' + inttostr( sec );

end;