Zufallswort

[St.Pauli]

Ist das Thema noch offen, oder die ist die Frage beantwortet?
Naja, hier ist auch nochma ne Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR woerter : TStringList;
Zahl : integer;
begin
Randomize;
woerter := TStringList.Create;
woerter.Add('Wort1');
woerter.Add('Wort2');
woerter.Add('Wort3');
woerter.Add('Wort4');
ShowMessage(woerter.Strings[Random(woerter.count)]);

end;

Edit: Ich bin ein Depp ey, zum Glück hab ich mir meinen Post nochmal angeguckt - Flüchtigkeitsfehler
verbessert...