150 MB Datei erstellen immer in 256byte schritten?

[R0BIN]

geht immer noch nicht wirklich....jetzt kommen 1 - 9 und dann aber wieder einsen bis neunen...

[inherited]

Sind ja auch Ferien

[Mackhack]

Zitat von R0BIN:

geht immer noch nicht wirklich....jetzt kommen 1 - 9 und dann aber wieder einsen bis neunen...

Nur mal so: Fuer was brauchst du denn diese File?

[R0BIN]

für einen test...

[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 ...

[Christian Seehase]

Moin Zusammen,

wie wär's denn mit:

Delphi-Quellcode:

var
  sBuf   : string;
  i      : integer;

begin
  fs := TFileStream.Create(....);
  try
    while true do begin
      for i := 1 to 255 do begin
        sBuf := StringOfChar(chr(i),256);
        fs.Write(sBuf[1],256);
        if fs.Size = (1024*1024*150) then exit;
      end;
    end;
  finally
    FreeAndNil(fs);
  end;
end;

[Sunlight7]

Warum nimmst Du nicht einfach einen PChar, ZeroMemory, bzw. FillMemory und schreibst das direkt in die Datei, anstatt Dich mit den FileStreams herum zu ärgern?

Edit: Also wenn das mit dem Roten Kasten funktionieren würde, wäre das nicht schlecht...

[Mackhack]

Na ja jetzt hast ja wieder nur eine Schleife drin und nur noch 1024 als Filesize.

//Edit: Hat sich erledigt!

[R0BIN]

jetzt ist es wieder wie nach deinem ersten code!

[jmd anders]

Naja irgendwie kann das nicht so klappen. du deine 111.. 222... 333.. ...999... geschrieben hast, braucht ja jedes Zeichen im string wirklich nur ein byte, nur dann bei der 10 werden immer 2 bytes zur darstellung gebraucht und dann ab der 100 3 zeichen, also muss etwas an der aufgabenstellung geändert werden. müssen es unbedingt zahlen sein?