150 MB Datei erstellen immer in 256byte schritten?

[Zacherl]

Mist ... war doch falsch Das problem liegt hier:

Delphi-Quellcode:

for i := 1 to (FileSize div 256) do 
    begin 
      s := ''; 
      SetLength(s, 256); 
      for i2 := 1 to 256 do 
        s[i2] := IntToStr(i)[1]; 
      fs.Write(PChar(s)^, Length(s));  
    end;

Man kann nicht einfach schreiben:

Delphi-Quellcode:

for i := 1 to (FileSize div 256) do 
    begin 
      for i2 := 1 to 256 do 
        s := IntToStr(i); 
      fs.Write(PChar(s)^, Length(s));  
    end;

weil dann die Datei möglicherweise zu groß ist ...