Hallo Leute,
ich bin noch ein "Anfänger" in Delphi und komme gerade nicht wirklich weiter, weil ich den Fehler in einer Procedure nicht findet.
Ich versuche ein einfachen Vokabeltrainer zu erstellen.
Man kann jeweils 12 Wörter eintragen (pro Sprache) und diese sollen dann auf einem extra Panel in 2 Edit Felder abgefragt werden.
Nun ist mein erstes Problem, dass nach dem man auf den Button "Start" klickt, keine Wörter auf den Editorfelder ausgeben werden.
Die gesamte Procedure lautet:
Delphi-Quellcode:
var d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,e1,e2,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12:string;
zufalldeutsch,zufallenglisch:integer;
procedure TForm1.ButtonstartClick(Sender: TObject);
begin
if deutsch1.text='' then
begin
showmessage('Bitte alle Felder ausfüllen');
exit;
end;
if deutsch2.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen');
exit;
end;
if deutsch3.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen');
exit;
end;
if deutsch4.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen');
exit;
end;
if deutsch5.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen');
exit;
end;
if deutsch6.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if deutsch7.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if deutsch8.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if deutsch9.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if deutsch10.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if deutsch11.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if deutsch12.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch1.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch2.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch3.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch4.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch5.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch6.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch7.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch8.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch9.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch10.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch11.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
if englisch12.text='' then
begin
showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
exit;
end;
panel1.visible:=true;
d1:=deutsch1.text;
d2:=deutsch2.text;
d3:=deutsch3.text;
d4:=deutsch4.text;
d5:=deutsch5.text;
d6:=deutsch6.text;
d7:=deutsch7.text;
d8:=deutsch8.text;
d9:=deutsch9.text;
d10:=deutsch10.text;
d11:=deutsch11.text;
d12:=deutsch12.text;
e1:=englisch1.text;
e2:=englisch2.text;
e3:=englisch3.text;
e4:=englisch4.text;
e5:=englisch5.text;
e6:=englisch6.text;
e7:=englisch7.text;
e8:=englisch8.text;
e9:=englisch9.text;
e10:=englisch10.text;
e11:=englisch11.text;
e12:=englisch12.text;
zufalldeutsch:=random(1-12);
If zufalldeutsch=1 then
begin
editdeutsch.text:=d1;
editenglisch.text:=e1;
end else
If zufalldeutsch=2 then
begin
editdeutsch.text:=d2;
editenglisch.text:=e2;
end else
If zufalldeutsch=3 then
begin
editdeutsch.text:=d3;
editenglisch.text:=e3;
end else
If zufalldeutsch=4 then
begin
editdeutsch.text:=d4;
editenglisch.text:=e4;
end else
If zufalldeutsch=5 then
begin
editdeutsch.text:=d5;
editenglisch.text:=e5;
end else
If zufalldeutsch=6 then
begin
editdeutsch.text:=d6;
editenglisch.text:=e6;
end else
If zufalldeutsch=7 then
begin
editdeutsch.text:=d7;
editenglisch.text:=e7;
end else
If zufalldeutsch=8 then
begin
editdeutsch.text:=d8;
editenglisch.text:=e8;
end else
If zufalldeutsch=9 then
begin
editdeutsch.text:=d9;
editenglisch.text:=e9;
end else
If zufalldeutsch=10 then
begin
editdeutsch.text:=d10;
editenglisch.text:=e10;
end else
If zufalldeutsch=11 then
begin
editdeutsch.text:=d11;
editenglisch.text:=e11;
end else
If zufalldeutsch=12 then
begin
editdeutsch.text:=d12;
editenglisch.text:=e12;
end;
Kann mir jemand helfen?
Danke!