Einzelnen Beitrag anzeigen

Glados
(Gast)

n/a Beiträge
 
#5

AW: GetFileSize - welches ist die bessere Funktion?

  Alt 20. Okt 2017, 20:20
Das mit dem FileCache ist nicht so wichtig.

Delphi-Quellcode:

var
 SW: TStopwatch;
 i, X: Integer;
 D1, D2, D3: Integer;

const
 FILE_: string = '\\?\D:\2017-06-12 16-54-48.mkv';
begin
 SW := TStopwatch.Create;
 SW.Start;
 for i := 0 to 9999 do
  X := GetFileSizeA(FILE_);
 SW.Stop;
 D1 := SW.ElapsedMilliseconds;

 SW := TStopwatch.Create;
 SW.Start;
 for i := 0 to 9999 do
  X := GetFileSizeB(FILE_);
 SW.Stop;
 D2 := SW.ElapsedMilliseconds;

 SW := TStopwatch.Create;
 SW.Start;
 for i := 0 to 9999 do
  X := GetFileSizeC(FILE_);
 SW.Stop;
 D3 := SW.ElapsedMilliseconds;

 Caption := X.ToString; // nur, damit X nicht wegoptimiert wird
 Caption := D1.ToString + ' - ' + D2.ToString + ' - ' + D3.ToString;
  Mit Zitat antworten Zitat