Delphi Zufallswort erzeugen - verhindern dass Wort 2x hintereinande

Thema durchsuchen

Ansicht

Themen-Optionen

Zufallswort erzeugen - verhindern dass Wort 2x hintereinande

Ein Thema von Assun · begonnen am 23. Mai 2005 · letzter Beitrag vom 23. Mai 2005

Vorheriger Beitrag

Nächster Beitrag

Assun

Registriert seit: 3. Feb 2005
Ort: Hilzingen am Bodensee
469 Beiträge

Delphi 2005 Personal

Zufallswort erzeugen - verhindern dass Wort 2x hintereinande

23. Mai 2005, 16:08

Hi !

so erzeuge ich zufallswörter :

zusammenfalten · markieren

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;