das abfragen der listboxen

[shmia]

Delphi-Quellcode:

var
   rindex : integer;
begin
   rindex := random(listbox1.Count);  // Zufallszahl zwischen 0 und listbox1.Count-1
   
   listbox1.ItemIndex := rindex;   // die Zeile anwählen
   PanelForeign.Caption := listbox1.Items[rindex];  // Zufällige Vokabel
end;

Um nun die Eingabe zu prüfen:

Delphi-Quellcode:

   i := listbox2.Items.IndexOf(EditVokabel.Text);
   if i < 0 then
      raise Exception.CreateFmt('<%s> ist nicht in  der Liste', [EditVokabel.Text])
   else
   begin
      listbox2.ItemIndex := i;
      if listbox1.ItemIndex <> listbox2.ItemIndex then
         raise Exception.CreateFmt('<%s> ist falsch', [EditVokabel.Text])
   end;