Zufallswort erzeugen - verhindern dass Wort 2x hintereinande

[Assun]

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

[Dax]

Die Worte, die du bereits benutzt hast, aus der Liste löschen ;)

[Sharky]

Zitat:

Zitat von Dax

Die Worte, die du bereits benutzt hast, aus der Liste löschen ;)

Eine Alternative wäre die Verwendung von einem der vielen Lotto-Funktionen die in der DP herumliegen.
Mit ein/zwei änderungen können die genau das was Du möchtest.

[Assun]

hmmm

Wenn man die Wörter aus der Liste löscht sind sie doch net mehr verfügbar oder ?

kann mal jemand vllt n kleines beispiel machen ? Danke !

[marabu]

Hallo Sebastian,

was hältst du hiervon:

Delphi-Quellcode:

procedure RandomizeStrings(sl: TStrings);
var
  i: integer;
begin
  for i := 1 to sl.Count - 1 do
    sl.Exchange(Pred(i), Pred(i + Random(sl.Count - i)));
end;

Grüße vom marabu

Obergrenze von i optimiert

[CalganX]

Hi,
manchmal fördert auch die Suche, erstaunliches [dp="doppelte einträge löschen"]zu Tage[/dp]. :roll:

Chris

[Phoenix]

Ganzt einfach indem Du Dir z.B. die letzte Zahl merkst und so lange eine neue generieren lässt bis Du eine andere hast:

Delphi-Quellcode:

function getName(lastone: integer) : integer;
var
   Namen : TStringList;
   Zahl : integer;
begin
   Randomize;
   Namen := TStringList.Create;
   Namen.Add('Eros');
   // weitere Namen 

   zahl := lastone;
   while (zahl=lastone) do
      zahl := Random(Namen.count)
   ShowMessage(Namen.Strings[zahl]);
   result := zahl
end;