Ein Zeichen ist ein Byte ... du musst also nur in einer Schleife so lange Bytes in den Stream schreiben, bis die Dateigröße erreicht ist ...
Beispiel:
Delphi-Quellcode:
procedure caststring;
var
fs: TFileStream;
s: string;
i: integer;
const
FileSize = 157286400; //In Byte 1024 * 1024 * 150 = 150MB
begin
fs := TFileStream.Create('dateia256.txt', fmCreate or fmOpenWrite);
try
for i := 1 to (FileSize div 256) do
begin
s := IntToStr(i);
fs.Write(PChar(s)^, Length(s));
end;
finally
fs.Free;
end;
end;
Florian