String aus einem Set von Strings

[rbest]

Hi Kollegen,
gibt es eine Funktion, die ermittelt, ob ein (Such-)string identisch ist mit einer (Parameter-)Liste von strings? Ein Beispiel:

llFound := inlist('searchfor', 'str1','str2','str3');

Danke für alle Hinweise, die zur Benutzung einer solchen Funktion führen :)

[s14]

Hallo rbest
mir fallen da zwei Möglichkeiten ein

1. TStringList, mit IndexOf vergleichen
2. Array of String, es muss dann aber jeder String mit der Funktion Compare verglichen werden

Gruß
s14

[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;

[rbest]

könnte fast nicht perfekter sein. :-D
Schönes Wochenende dann.

[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

Delphi-Quellcode:

IndexStr

verwenden

[Graf Gustav]

... es konnte also doch perfekter sein :lol: danke

[Uwe Raabe]

Wenn schon perfekt, warum dann

Delphi-Quellcode:

IndexText(...) <> -1

und nicht gleich

Delphi-Quellcode:

MatchText(...)

?

[himitsu]

Wenn case-insensitive nicht wichtig ist, dann hier ebenfalls mit Str anstatt Text.

Ist das Array auch noch sortiert und es soll schnell gehn, dann mit TArray.BinarySearch<string>