String ausgeben

[Puke]

Ich glaub da war was:

Zitat von DelphiDan:

ich bin noch ein "Anfänger" in Delphi

Ach, er ist noch Anfänger. Und warum reiten dann alle (bis auf BUG und p80286) auf ihm rum?

DelphiDan, versuch erstmal den ersten Teil mit einer oder-Verknüpfung zu minimieren (Du musst es noch nicht mit FindComponent machen):

Delphi-Quellcode:

if (deutsch1.text = '') or (deutsch2.text = '') or ... or (englisch11.text = '') or (englisch12.text = '') then
   ShowMessgae('...')
else
begin
  // Hier kommt der Teil ab dem "panel1.visible := false" rein
  panel1.visible := false;
  {...}
end;

Und dann kannst du weitermachen mit der case -Anweisung

Delphi-Quellcode:

case zufallszahl of
 1: begin
       // Hier kommt die Zuweisung dann rein
       editdeutsch.text:=d1;
       editenglisch.text:=e1;
    end;
 2: begin
       // Hier kommt die Zuweisung dann rein
    end;
 {...}
end;

Das wird übersichtlicher und einfacher für dich.

Beste Grüße
Puke