Delphi Stoppuhr Problem (GetTickCount)

Thema durchsuchen

Ansicht

Themen-Optionen

Delphi Stoppuhr Problem (GetTickCount)

Ein Thema von mb.99 · begonnen am 4. Jan 2012 · letzter Beitrag vom 4. Jan 2012

Vorheriger Beitrag

Nächster Beitrag

mjustin

Registriert seit: 14. Apr 2008
3.011 Beiträge

Delphi 2009 Professional

AW: Delphi Stoppuhr Problem (GetTickCount)

4. Jan 2012, 10:54

Zitat von mb.99:

markieren

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