Wenn ich dich richtig verstanden habe, versuchst du x zufällige Strings in eine Datei zu schreiben. Das kannst du so machen:
Code:
function rndstr(const cs:string;len:word):string;
var
p:pchar;
i,le:integer;
begin
setlength(result,len);
p:=pchar(result);
le:=length(cs);
for i := 1 to len do
begin
p^:=cs[succ(random(le))];
inc(p);
end;
end;
const
cs='abcdefghijklmnopqrstuvwxyz';
cnt=10;
len=8;
var
f:textfile;
i:integer;
begin
assignfile(f,'c:\test.txt');
try
rewrite(f);
try
randomize;
for i := 1 to cnt do
writeln(f,rndstr(cs,len));
finally
closefile(f);
end;
except
on e:exception do showmessage(e.Message);
end;
end;
Das Beispiel schreibt 10 zufällige 8-stellige Strings mit dem Charset a-z in die Datei c:\test.txt