Zufallswort

[sandraeberlein]

Ich will, das wenn ich auf einen Button klicke, per zufall ein Wort angezeigt wird.
Die wörter sollen entweder:

"Test"
"nene"
"Döner"
"Gurke"

oder so etwas sein. Nun habe ich nicht viel mit solchen Sachen zu tun..

Wer kann mir helfen?

Danke und Bussi :love:
Sandra

[Die Muhkuh]

Delphi-Quellcode:

const
  Woerter: array[0..3] of String = ('Test', 'nene', 'Döner', 'Gurke');

implementation

function GetWord: String;
begin
  Result := Woerter[Random(High(Woerter) + 1)];
end;

procedure ButtonClick;
begin
  ShowMessage(GetWord);
end;

// Das ganz unten hin, vor dem end.
initialization
  Randomize;

end.

Ungetestet

[Chegga]

Hi,

bitte beide Seiten sorgfältig durchlesen und deine Probleme lösen sich wie von selbst. :wink:
*KLICK*

MfG Marc

[Waldteufel]

Hi.

Da kann auch "wrgstrf" oder "zrgrfrtzzz" oder "dfjgslrijfwjet" oder "kshduhdftl" rauskommen.

Sie will aber ein Wort aus einer festgelegten Liste :arrow: Spider hat Recht!

[Chegga]

Hi,

@"Waldteufel":
Ich bin überzeugt, dass du nicht beide Seiten gelesen hast,
denn unter anderem, ist dort auch Spiders Lösung dabei.
(Neben zahlreichen anderen! :zwinker: )

MfG Marc

[Waldteufel]

Hi.

Echt? Wo? Ich hab aber beide Seiten durchgelesen... :gruebel: Wer hat denn da den Code gepostet... :gruebel:

[Die Muhkuh]

Hi,

meine Lösung ist dort nicht vorhanden! Dort geht es legendlich im erzeugen von verschiedenen Buchstaben und nicht, wie man Wörter aus einer Liste anzeigt! ;)

[St.Pauli]

Ist das Thema noch offen, oder die ist die Frage beantwortet? :gruebel:
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 :oops: :oops: :oops:
verbessert...