String aus einem Set von Strings

[Sharky]

Hai rbest,

meinst Du so etwas:

Delphi-Quellcode:

function inlist (search : String ; values : Array of String) : Boolean;
var
  ndx : Integer;
begin
 result := False;
 for ndx := low(values) to high(values) do
 begin
   if search = values[ndx] then
   begin
     result := True;
     exit;
   end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if inlist('Sharky', ['Katze','Tiger','Sharky']) then
  begin
    ShowMessage ('gefunden');
  end
  else
  begin
    ShowMessage ('nicht gefunden');
  end;
end;