*Thread entstaub*
Für alle, die das gleiche Problem haben und lieber eine Delphi-eigene Funktion nutzen möchten:
Delphi-Quellcode:
uses StrUtils
{...}
procedure TForm1.Button1Click(Sender: TObject);
begin
if (IndexText('Sharky', ['Katze','Tiger','Sharky']) <> -1) then
begin
ShowMessage ('gefunden');
end
else
begin
ShowMessage ('nicht gefunden');
end;
end;
Wer Groß-/Kleinschreibung beachten will kann stattdessen
IndexStr
verwenden