Hi !
so erzeuge ich zufallswörter :
Delphi-Quellcode:
Var Namen : TStringList;
Zahl : integer;
begin
Randomize;
Namen := TStringList.Create;
Namen.Add('Eros');
Namen.Add('Herbert');
Namen.Add('Anton');
Namen.Add('Hugo');
Namen.Add('Fabian');
Namen.Add('Niemand');
ShowMessage(Namen.Strings[Random(Namen.count)]);
end;
doch wie kann ich verhindern, dass ein Wort doppelt vorkommt ?
Vielen Dank im Voraus !
Gruß Assun