Geschwindigkeitsunterschied TFilestream TMemorystream

[etom291272]

Danke union war wiedermal hammertip

Delphi-Quellcode:

   aDateiGr := 0;
    for i:=0 to aObjList.Count-1 do
    begin
      aFs:=TFileStream.Create(aObjList.Strings[i], fmOpenRead);
      try
        aDatName:=ExtractFileName(aObjList.Strings[i]);
        //aDateiGr:= aDateiGr+aFs.Size+length(aObjList.Strings[i])+1;
        aDateiGr:=aDateiGr + sizeof(aDateiGr)+sizeof(i)+sizeof(aDatName)+aFs.Size;
      finally
        aFs.Free;
      end;
    end;

    aTempFs.SetSize(aDateiGr);
    StatusBar.Panels[0].Text:='... reserviert '+IntToStr(aDateiGr);

die selben 3 dateien brauchen jetzt mit dem Memorystream unter 4 sekunden bis die komprimierung startet