[Anfänger] Wortliste auf einen String überprüfen

[ddcool]

Hi Jonas,

so nebenbei. Was mir gerade auffällt ist, dass du 6 Buchstaben zufällig erzeugst.
Was aber wenn man aus diesen 6 Buchstaben gar kein Wort bilden kann?
Ich würde an deiner Stelle die Textdatei mit den Wörtern auslesen und dann die Buchstaben eines Wortes zufällig ausgeben lassen.

Delphi-Quellcode:

var
  TextDatei: TStringList;
  wort: String;
  i: Integer;
begin
  TextDatei := TStringList.Create;
  TextDatei.LoadFromFile('Datei.txt');
 
  randomize;
  wort := TextDatei.Strings[random(TextDatei.Count-1)];

  for i := 0 to Length(wort)-1 do
  begin
    randomize;
    writeln(wort[random(Length(wort)-1)]; // Hier musst du dir noch ausdenken, wie du es realisierst,
                                          // dass ein Buchstabe nich zweimal genommen wird.
  end;

  TextDatei.Free;
end;

Grüße ddcool