In Schleife Passwörter erzeugen

[eroe]

ich hab zum testen mal den ganzen schnickschnack, den du für deine verwendung brauchst, rausgenommen, hatte also nur noch folgenden code

Code:

procedure TForm1.Button1Click(Sender: TObject);
  var TestPW, Doppel : String; i:Integer;
    dat : TextFile;

begin
  
  AssignFile(dat,'C:\Fehlerhafte.txt');
  rewrite(dat);
  randomize;
  
  for i := 1 to 7 do 
    begin
      TestPW := '';
      while Length(TestPW) < 26 do
        TestPW := TestPW + char( Random(210)+30 );
  
      write(dat,inttoStr(i)+'-'+TestPW + '->');
    end;

  closefile(dat);

end;

und siehe da, es funktioniert
meine 'Fehlerhafte.txt' sah wie folgt aus :

Code:

1-’KV íê0tyµ²¸R')b}`äÈÂ#¶/,é->
2--Ìb°Q°é%¡7¡^Åá´!�K±¹~,:¹8->
3-,HÖ6aÞvÄ�y½Œak«ÄÉá9ĆN·nŸK->
4-T€—áèLq:—²cƒ:ÄÒ»6©Õˆ×j½¼Å->
5-"-½D¾’^H-’²Ö‚¿o ¿wÎeçu5Ó¤.->
6-®ØqŸ›Nyä˜ÆÊY"N·„6iª,Jo×7¶->
7-0kRš|tLKÔ¦UŒÕÛ5³SZÄ\.\Pq*->

also denk ich mal, liegt der fehler irgendwo bei deinen ganzen vergleichen mit dem 'soll'-pw oder so ..