Angenommen, du hast die Frage in einer Variablen s:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var SL: TStringList;
begin
SL:=TStringList.Create;
if SL.IndexOf(s)=-1 then
begin
SL.Add(s);
//Code für die Ausgabe der Frage
end
else
begin
//Frage wurde schon mal verwendet
end;
end;
So müsste es gehen!
