150 MB Datei erstellen immer in 256byte schritten?

[Zacherl]

Sorry war mein Fehler, aber so sollte es gehen:

Delphi-Quellcode:

procedure caststring;
var 
  fs: TFileStream; 
  s: string; 
  i,
  i2: integer;
const
  FileSize = 1024; //In Byte 1024 * 1024 * 150 = 150MB
begin 
  fs := TFileStream.Create('C:\dateia256.txt', fmCreate or fmOpenWrite);
  try 
    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; 
  finally 
    fs.Free; 
  end; 
end;

@Mackhack: Ja, hatte es zwischenzeitlich auch schon gemerkt ... Sowas blödes

Florian