-
http://img69.imageshack.us/img69/39/fehlerb.jpg
So sieht der Fehler aus und die "Ausgabe" die er in die Datei Schreibt ist immer das selbe Wort, 50 Mal, 100 Mal, egal wie viele PW´s er machen soll, es gibt keine Abweichungen...
Ich verzweifel langsam...
-
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
-
Größten Dank an dich inout! Klappt wunderbar!
MfG!
Kann geclosed werden!