Worte-wechsler

[origin]

Die Wortkombinationen stehen fest.
in etwa so:


'Hase-Hund-Maus-Dogge-Bunny-Mickey'

'Katze-Esel-Tiger-Taube-Muschi-Ia-Brummi-Guruguru'

'Geist-Tisch-Teppich-Huibuh-Deckdich-Alibaba'

'Zahnarzt-Klempner-Pilot-Karies-Rohrbruch-Flugzeug'


Tja und nach jedem ButtonClick soll eine andere Wortreihe angezeigt werden.
Die Worte innerhalb der Wortreihe sollen dabei NICHT vertauscht werden.

[DeddyH]

2 Lösungsmöglichkeiten hast Du ja jetzt, oder klappt irgendetwas noch nicht?

[origin]

Offen gestanden bin ich noch dabei.
Ich habe deine Postings gelesen und gedacht, vielleicht
hatte ich da etwas missverständlich geschrieben und deshalb
in meinen Ausführungen nachgebssert um zu sehen ob du evtl.
etwas an deinem Beitrag änderst.
Sonst fange ich ja stets neu an...

[DeddyH]

Nö, geändert hab ich nichts mehr, lediglich erweitert. Versuch es mal und wenn etwas nicht funktionieren sollte, meld Dich einfach nochmal.

[origin]

Ja, okay.
Danke.

[p80286]

Mach mal
Detlefs Lösung funktioniert schon!

Gruß
K-H

P.S. der Integer ist ein Reflex aus uralten Zeiten, aber Dinos sterben ja eh aus.

[DeddyH]

Meine Lösung funktioniert nur dann nicht mehr, wenn alle Strings im Array exakt gleich sind, aber das macht ja niemand, gell?

[p80286]

Weiß man's?

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

[origin]

Hi Detlef,
du hast mir echt super geholfen.

So hat es prima geklappt. Beliebig erweiterbar. Super.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
const txt: array[0..5] of string = ('Hund-Katze-Maus-Bello-Muschi-Mickey','Esel-Tiger-Ente-Ia-Fauch-Quack','Tisch-Stuhl-Leiter-Essen-Sitzen-Klettern','Geld-Bild-Haus-Münze-Farbe-Wohnen','Flasche-Teller-Glas-Wein-Porzellan-Scherben','Karotte-Erbse-Mandel-Hase-Strauch-Schale');
begin
  Edit1.Text := txt[Random(Length(txt))];

Also ich werde mir echt ein gescheites Buch zulegen.
Wie ich das mit den Arrays hätte machen sollen, da wäre ich so nich dahinter gekommen.

Nun ists klar.

Wünsche dir und allen hier noch viel Freude beim Programmieren und ein schönes WE.