Testen eines USB3.0-Drives - DISKSPEED

[hathor]

Wenn ich das File umbenenne vor dem Einlesen - kann es dann das erwartete Ergebnis bringen?
---
Negativ. File umbenennen nützt nichts.
---
Andere Idee: 100MB-File splitten in zwei 50MB-Files:
Schreiben und Lesen ist immer noch um den Faktor 20 verschieden.

Delphi-Quellcode:

//DATA50 = 50MB String
procedure TForm1.ReadCClick(Sender: TObject);
var s1,s2 : String; gtc1, gtc2 : Cardinal;
begin
gtc1:= GetTickCount;
   s1:= LoadStringFromFile(filename+'1');
   s2:= LoadStringFromFile(filename+'2');
gtc2:= GetTickCount;
lbReadC.caption:= IntToStr(100000 div(gtc2-gtc1))+' MB/sec ';
lbtimeC.caption:= IntToStr(gtc2-gtc1)+' Millisec ';
end;

procedure TForm1.writeCClick(Sender: TObject);
var fs1,fs2 : TFileStream;  gtc1, gtc2 : Cardinal;
begin
filename:= DriveComboBox1.Drive + ':\test.00';
gtc1:= GetTickCount;
        fs1:=TFileStream.Create(fileName+'1', fmCreate);
        fs1.Write(DATA50[1], Length(DATA50));
        fs1.Free;

        fs2:=TFileStream.Create(fileName+'2', fmCreate);
        fs2.Write(DATA50[1], Length(DATA50));
        fs2.Free;
gtc2:= GetTickCount;
lbtimeC.caption:= IntToStr(gtc2-gtc1)+' Millisec ';
lbwriteC.caption:= IntToStr(100000 div(gtc2-gtc1))+' MB/sec ';
end;