"Lerneffekt" beim Vokabeltrainer...

[kalmi01]

probiers mal so:

Delphi-Quellcode:

if (eingabe.text<>loesung) and (pos(listbox1.Items[i], listbox2.Items)>0)
then listbox2.items.add(listbox1.Items[i]);
if (i=random(listbox2.items.count)) and (eingabe.text=loesung)
then listbox2.items[i].Delete;