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;