Worte-wechsler

[himitsu]

Ich hoff es stört nicht, wenn ich nun alles einfach so ignoriere und nochmal von Anfang an anfang?

Du möchtest also daß beim Aufruf von Button 2 unterschiedelich "Befehle" ausgeführt werden ...
> Was nimmt man dafür?

Delphi-Quellcode:

if XYZ then 
  txt := 'Hase-Hund-Maus-Dogge-Bunny-Mickey'
else 
  txt := 'Fisch-Eidechse-Vogel-Schwuppi-Lurchi-Hansi';

OK, du möchtest aber nun noch mehrer Unterschiedliche ...
> Dafür kann man die IF-THEN-ELSE verschachteln oder man nutzt CASE.

Delphi-Quellcode:

if XYZ then 
  txt := 'Hase-Hund-Maus-Dogge-Bunny-Mickey'
else 
  txt := 'Fisch-Eidechse-Vogel-Schwuppi-Lurchi-Hansi'
else if XYZ then 
  txt := 'es gibt noch einige weitere Wortgruppen!!';

Delphi-Quellcode:

case XYZ of
  0: txt := 'Hase-Hund-Maus-Dogge-Bunny-Mickey';
  1: txt := 'Fisch-Eidechse-Vogel-Schwuppi-Lurchi-Hansi';
  2: txt := 'es gibt noch einige weitere Wortgruppen!!';
end;

So, nun hat man erstmal alles "nebeneinander".


Jetzt kommt noch die Auswahl, was wann ausgeführt werden soll.
> Dafür gibt es Random

jetzt noch alles kombiniert, würde z.B. dieses rauskommen

Delphi-Quellcode:

case Random(3) of
  0: txt := 'Hase-Hund-Maus-Dogge-Bunny-Mickey';
  1: txt := 'Fisch-Eidechse-Vogel-Schwuppi-Lurchi-Hansi';
  2: txt := 'es gibt noch einige weitere Wortgruppen!!';
end;

Soooo, das war jetzt einfach nur ein einfacher Lösungsansatz.
Erstellt anhand der "Forderungen", welche man erreichen wollte.
Dieses könnte man dann natürlich noch bebliebig ausbauen/erweitern
und würde dann eventuell auch auf derartige Lösungen stoßen, wie schon genannt wurden.
(z.B. aus dem Case ein Array oder Stringliste machen)