![]() |
Re: Worte-wechsler
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. |
Re: Worte-wechsler
2 Lösungsmöglichkeiten hast Du ja jetzt, oder klappt irgendetwas noch nicht?
|
Re: Worte-wechsler
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... |
Re: Worte-wechsler
Nö, geändert hab ich nichts mehr, lediglich erweitert. Versuch es mal und wenn etwas nicht funktionieren sollte, meld Dich einfach nochmal.
|
Re: Worte-wechsler
Ja, okay.
Danke. :) |
Re: Worte-wechsler
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. |
Re: Worte-wechsler
Meine Lösung funktioniert nur dann nicht mehr, wenn alle Strings im Array exakt gleich sind, aber das macht ja niemand, gell? :mrgreen:
|
Re: Worte-wechsler
Weiß man's?
|
Re: Worte-wechsler
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:
OK, du möchtest aber nun noch mehrer Unterschiedliche ...
if XYZ then
txt := 'Hase-Hund-Maus-Dogge-Bunny-Mickey' else txt := 'Fisch-Eidechse-Vogel-Schwuppi-Lurchi-Hansi'; > 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:
So, nun hat man erstmal alles "nebeneinander".
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; Jetzt kommt noch die Auswahl, was wann ausgeführt werden soll. > Dafür gibt es ![]() 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) |
Re: Worte-wechsler
Hi Detlef,
du hast mir echt super geholfen. :cheers: 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. :dancer: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz