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)