Einzelnen Beitrag anzeigen

mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#4

AW: Delphi Stoppuhr Problem (GetTickCount)

  Alt 4. Jan 2012, 11:54
Delphi-Quellcode:
unit Unit2;

procedure TForm2.Button1Click(Sender: TObject);
var
  Ti1, Ti2: Integer; // Ti1:Startzeit Ti2: Stoppzeit
begin
Ti1 und Ti2 werden nicht initialisiert.

Beim Start wird Ti1 zugewiesen, aber der Wert ist nicht mehr vorhanden wenn die Methode verlassen wird (lokale Variable)!

Daher ist beim 'Stop' bei der Berechnung

IntToStr(Ti2 - Ti1); das Ti1 wieder, weil nicht initialisiert, irgendein zufälliger Wert.
Michael Justin
  Mit Zitat antworten Zitat