Kein wirklicher Geschwindigkeitsvorteil durch Threads?

**Ginko**

Gibt es einen Weg die Dauer des gesamten Vorgangs zu messen ?

Delphi-Quellcode:

			procedure TForm1.Button8Click(Sender: TObject);

var

  DateienLst: TSearchRec;

  Thread1: TMyThread1;

  //Zeittest

  freq: Int64;

  startTime: Int64;

  endTime: Int64;

begin

  QueryPerformanceFrequency(freq);

  QueryPerformanceCounter(startTime);

  if FindFirst(Directory + '*.txt', faAnyFile and not faDirectory, DateienLst) = 0 then

    try

      repeat

        Thread1:= TMyThread1.Create(True);

        Thread1.FreeOnTerminate := True; 

        Thread1.FDateienname:= Directory+DateienLst.Name;

        Thread1.Resume;

      until FindNext(DateienLst) <> 0;

    finally

      SysUtils.FindClose(DateienLst);

    end;

  QueryPerformanceCounter(endTime);

  ShowMessage('Die Routine benötigte etwa ' + IntToStr((endTime - startTime) * 1000 div freq) + 'ms');

end;

Der Wert der hier raus kommt deckt sich ja nicht mit der Gesamtdauer, da die Threads ja unabhängig laufen oder ?

Kein wirklicher Geschwindigkeitsvorteil durch Threads?

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?

Forumregeln