Erste Moeglichkeit: Du koenntest ein Trennzeichen einfuehren (etwa den senkrechten Strich, |, also das Pipe-Symbol) und den String entsprechend zerlegen (oder mit Pos() durchsuchen):
Delphi-Quellcode:
StringMitRichtigenAntworten:='Hund|Katze|Maus';
if Pos(GegebeneAntwort, StringMitRichtigenAntworten)>0 then
begin
// richtige Antwort
end
else
begin
// falsche Antwort
end;
Zweite und vermutlich uebersichtlichere Moeglichkeit: TObjectList verwenden und die erlaubten Antworten da reinstopfen, oder alternativ ein Array verwenden.