Hilfe bei Schleifen Problem

[Tido]

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...

[inout]

Wenn ich dich richtig verstanden habe, versuchst du x zufällige Strings in eine Datei zu schreiben. Das kannst du so machen:

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

[Tido]

Größten Dank an dich inout! Klappt wunderbar!

MfG!

Kann geclosed werden!