String aus einem Set von Strings

[Codewalker]

*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