das abfragen der listboxen

[MarvinM]

Probier mal das:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    MutterList: TListBox;
    FremdList: TListBox;
    Gen: TButton;
    EingabeEdt: TEdit;
    Chk: TButton;
    procedure GenClick(Sender: TObject);
    procedure ChkClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Zufall: Integer;
  AskWord: String;

implementation

{$R *.DFM}

procedure TForm1.GenClick(Sender: TObject);
begin
  //ZUfallszahl
  randomize;
  zufall := random(FremdList.Items.Count);

  //Wort auswählen
  AskWord := FremdList.Items.Strings[Zufall];
  Showmessage(AskWord);
end;

procedure TForm1.ChkClick(Sender: TObject);
var
  Eingabe: String;
begin
  //Eingabe mit Vorgabe vergleichen
  Eingabe := EingabeEdt.Text;
  if not (Eingabe = MutterList.Items.Strings[Zufall]) then
    Showmessage('Die Eingabe ist falsch!');
end;

end.