Ich glaub da war was:
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