Zufallswort erzeugen - verhindern dass Wort 2x hintereinande

[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;