La meilleure façon de trouver si une chaîne est dans une liste (sans génériques)

Question

Je veux faire quelque chose comme ceci:

Result = 'MyString' in [string1, string2, string3, string4]; 

Cela ne peut pas être utilisé avec des cordes et je ne veux pas faire quelque chose comme ceci:

Result = (('MyString' = string1) or ('MyString' = string2)); 

Aussi je pense que créer un StringList pour faire ceci est trop complexe.

Existe-t-il un autre moyen d'y parvenir?

Merci.

Answer 1

Vous pouvez utiliser AnsiIndexText (const AnsiString ATaille, un tableau const de aLes valeurs string): entier ou matchstr (const ATaille: string; const a Valeurs: tableau de chaînes): Boolean;

Quelque chose comme

Result := (AnsiIndexText('Hi',['Hello','Hi','Foo','Bar']) > -1); 

ou

Result := MatchStr('Hi', ['foo', 'Bar']); 

AnsiIndexText renvoie l'index 0 offset de la première chaîne qu'il trouve dans aLes valeurs qui correspond ATaille insensible à la casse. Si la chaîne spécifiée par AText n'a pas de correspondance (peut-être insensible à la casse) dans AValues, AnsiIndexText renvoie -1. Les comparaisons sont basées sur les paramètres régionaux actuels du système .

matchstr détermine si l'une des chaînes de l' aLes valeurs du tableau correspondent à la chaîne spécifiée par ATaille en utilisant un cas comparaison sensible. Il renvoie true si au moins l'une des chaînes du groupe correspond, ou false si aucune des chaînes ne correspond.

Remarque AnsiIndexText a indépendamment de la casse et matchstr est le cas donc je suppose sensible que cela dépend de votre utilisation

EDIT: 03/09/2011: Juste trouvé cette réponse et a pensé que je voudrais ajouter une note que, dans Delphi 2010, il y a aussi une fonction MatchText qui est la même que MatchStr mais insensible à la casse.- Larry

Answer 2

Voici une fonction qui fait le travail:

function StringInArray(Value: string; Strings: array of string): Boolean; 
var I: Integer; 
begin 
    Result := False; 
    for I := Low(Strings) to High(Strings) do 
    Result := Result or (Value = Strings[I]); 
end; 

En fait, vous ne comparez MaChaîne à chaque chaîne dans les chaînes. Dès que vous en trouvez un correspondant, vous pouvez quitter la boucle for.

Answer 3

Le code de Burkhard fonctionne, mais itère sans nécessité sur la liste même si une correspondance est trouvée.

meilleure approche:

function StringInArray(const Value: string; Strings: array of string): Boolean; 
var I: Integer; 
begin 
    Result := True; 
    for I := Low(Strings) to High(Strings) do 
    if Strings[i] = Value then Exit; 
    Result := False; 
end; 

Answer 4

Vous pouvez essayer ceci:

Result := Pos(MyString, string1+string2+string3+string4) > 0