queryperformancecounter

[Eradikator]

Moin,
ich will die Laufzeit einer Prozedur mit QueryPerformanceCounter und zwar so:

Code: Alles auswählen

procedure TForm1.BSortierenClick(Sender: TObject);
var
   freq, startTime, endTime : Int64;
begin
  if cselection.Checked then
  begin
    QueryPerformanceFrequency(freq);
    QueryPerformanceCounter(startTime);
    memo3.Clear;
    memo3.lines.AddStrings(memo1.Lines);
    selectionsort(memo3.lines);
    QueryPerformanceCounter(endTime);
    edit2.Text:=(IntToStr((endTime - startTime) * 1000 div freq));
  end;
end;

Das ganze funktioniert scheinbar, nur stört mich folgende Fehlermeldung:

• local variable "startTime" does not seem to be initialised
  local variable "endTime" does not seem to be initialised
  local variable "freq" does not seem to be initialised

Muss ich das beachten?

Grüße

[g3sh]

Wenns dich wirklich stört, setz am Anfang alles auf Null:

Code: Alles auswählen

  freq:= 0; startTime:= 0; endTime:= 0;  

Oder du stellst die Meldung unter Projekteinstellungen (Meldungen) einfach aus (wobei die in anderen Fällen schon mal sinnvoll ist).
Oder ignorierst es ...

MfG

[Eradikator]

Nee stört mich nicht .

Danke für die Antwort.

freundliche Grüße