Timer zählt +2 anstatt +1???

[3_of_8]

+2?

Bist du dir sicher? Das kann ich mir überhaupt nicht erklären.

Das andere geht übrigens so:

Delphi-Quellcode:

var s, m, h: Integer;

//...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(s); //oder s:=s+1;
  if s>=60 then
  begin
    inc(m);
    s:=0;
  end;
  if m>=60 then
  begin
    inc(h);
    m:=0;
  end;

  //Hier dann wieder das Edit-Feld:
  form2.edit1:=inttostr(h)+':'+inttostr(m)+':'+inttostr(s);
end;

EDIT: @shmia: Das stimmt natürlich, darauf sollte man achten.
Man deklariert noch eine Variable start, und weißt der am Anfang den Wert von GetTickCount() zu.

Die Timer-Methode geht dann wieder so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var diff: Integer;
begin
  diff:=GetTickCount-start;
  h:=diff div 60;
  diff:=diff mod 60;
  m:=diff div 60;
  s:=diff mod 60;
  
  form2.edit1:=inttostr(h)+':'+inttostr(m)+':'+inttostr(s);
end;