Große Datei erzeugen

[ReDoX]

Hi
Willst du das in der Datei ZufallsZahlen stehen?
Wenn nein dann kanst du so

Delphi-Quellcode:

procedure CreateFile(Size:Integer;Path:String);
 var
 fs: TFileStream;
begin
fs:=TFileStream.Create(Path, fmCreate);
 try 
  fs.Size:=Size;
   finally
    fs.Free;
 end;
end;

beliebig große datein erzeugen.
Mfg MrScholz

Edit: Würde das auch so gehen?

Delphi-Quellcode:

procedure CreateTxtFile(Path:String;Range:Integer);
var
 sl : TStringList;
 i : Integer;
begin
sl := TStringList.Create;
 try
  for i := 1 to 1000 do
   sl.Add(IntToStr(Random(Range)));
    finally
     sl.SaveToFile(Path);
     sl.Free;
  end;
end;