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.
- Zu den Dingen, welche einen Denker in Verzweiflung bringen können, gehört die Erkenntnis, dass das Unlogische für den Menschen nötig ist, und dass aus dem Unlogischen vieles Gutes entsteht. (Nietzsche)