Random?

[Killer]

Hm der iss relativ umfangreich. Ich kann aber mal die wichtigsten Funktionen reinschreiben:
OnCreate:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 DBListBox1.Items.Clear;
 FillBox;
 Randomize;
 while not ADOQuery1.Eof do begin
  DBListBox1.Items.Add(ADOQuery1.FieldByName('german').AsString);
  ADOQuery1.Next
end;
end;

FillBox ist eine Funktion zum Einfügen der DBListBox Items!

LBRandom (Randomfunktion):

Delphi-Quellcode:

procedure TForm1.LBRandom;
begin
 DBListBox1.ItemIndex := Random(DBListBox1.Items.Count);
 varia := DBListBox1.Items[DBListBox1.ItemIndex];
end;

1ter Aufruf der Funktion:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 LBRandom;
 KWizardWelcomePage3.Show;
 KWizardWelcomePage3.VisibleButtons := [bkNext,bkFinish];
end;

KWizard iss ne VCL.

2ter Aufruf der Funktion:

Delphi-Quellcode:

procedure TForm1.KWizardWelcomePage3NextButtonClick(Sender: TObject;
  var Stop: Boolean);
begin
 if KWizardWelcomePage3.VisibleButtons = [bkBack,bkNext,bkFinish] then
 KWizardWelcomePage1.Show else LBRandom;
end;

Hm das war jetzt eigentlich das wichtigste...