Also ich hab das irgendwie noch nicht hinbekommen.
Ich möchte dieses random in den folgenden source einbauen:
Delphi-Quellcode:
begin
with qryAbfrage
do begin //englisch vergleich mit tabelle (query komponente)
Close;
SQL.Text := '
Select Count(*) as ANZAHL From eng';
SQL.Add('
Where ENGLISCH = :Englisch and DEUTSCH = :Deutsch');
ParamByName('
Englisch').AsString := edit1.Text;
//Parameterwerte aus1 Edit
Open;
if FieldByName('
ANZAHL').AsInteger > 0
then
ShowMessage('
Richtig')
else
if MessageDlg('
Leider falsch. Lösungen anzeigen?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
form5.show;
end;;
Close
end;
end;
Wie stelle ich das an ???