so bei mir hat sich jetzt ne ganze menge im quelltext verändert, aber bekomme ein paar fehlermeldungen
helft ihr mir bitte sie auszumerzen? das was neu dazugekommen ist hab ich zur besseren übersicht als kommentar gekennzeichnet!
Bekomme bei der delete-funktion die Fehlermeldung "not enough actual parameters", und bei den beiden if-and-then-Anweisungen "incompatible types". keine ahnung woran es liegen kann!!
Delphi-Quellcode:
procedure TForm2.naufgabeClick(Sender: TObject);
var art:integer;
begin
listbox1.Items.LoadFromFile('vokabel.txt');
case radiogroup1.itemindex of
0: art:=1;
1: art:=2;
2: art:=random(2)+1;
else showmessage('Bitte erst die Art der Vokabelabfrage bestimmen!');
end;
//if listbox2.items.count>3 then
//begin
// x:=random(100);
// if x<33 then i:=random(listbox1.Items.Count);
// if x>=33 then i:=random(listbox2.items.count);
//end
//else i:=random(listbox1.Items.Count);
case art of
1:begin
panel1.Caption:=listbox1.Items.names[i];
loesung:=listbox1.Items.ValueFromIndex[i];
end;
2:begin
panel1.Caption:=listbox1.Items.ValueFromIndex[i];
loesung:=listbox1.Items.names[i];
end;
end;
eingabe.text:='';
bewertung.caption:='';
eingabe.setfocus;
end;
procedure TForm2.eingabeKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if eingabe.text=loesung then bewertung.caption:='richtig'
else bewertung.caption:='falsch';
naufgabe.setfocus;
if eingabe.text=loesung then bewertung.font.color:= clgreen
else bewertung.font.Color:=clred;
if eingabe.text=loesung then richtig:=richtig+1
else falsch:=falsch+1;
gesamt:=gesamt+1;
auswertung.caption:='Gesamt:'+inttostr(gesamt)+'richtig:'+inttostr(richtig)+'falsch:'+inttostr(falsch);
end;
//if eingabe.text<>loesung and pos(listbox1.Items[i], listbox2.Items)><-1 then //listbox2.items.add(listbox1.Items[i]);
//if i=random(listbox2.items.count) and eingabe.text=loesung then
//listbox2.items.Delete[i];
//end;
procedure TForm2.FormCreate(Sender: TObject);
begin
randomize;
end;
end.