Meilleure façon de savoir si une chaîne de caractères en une liste (sans les génériques)

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 la création d'une StringList pour faire juste cela est trop complexe.

Est-il un autre moyen pour y parvenir?

Grâce.

InformationsquelleAutor Fabio Gomes | 2008-10-29
  1. 57

    Vous pouvez utiliser AnsiIndexText(const AnsiString Atexte, const tableau de chaîne de AValues):integer ou MatchStr(const Atexte: string; const AValues: tableau de string): Boolean;

    Quelque chose comme

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

    ou

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

    AnsiIndexText renvoie la valeur 0 offset
    index de la première chaîne qu'il trouve dans
    AValues qui correspond à Atexte
    cas insensiblement. Si la chaîne
    spécifié par Atexte ne dispose pas d'un
    (éventuellement non sensible à la casse) dans le match
    AValues, AnsiIndexText retourne -1.
    Les comparaisons sont basées sur le courant
    paramètres régionaux du système.

    MatchStr détermine si l'une des
    des chaînes dans le tableau AValues correspondre à la
    chaîne spécifiée par Atexte à l'aide d'un cas
    comparaison sensible à la    . Elle renvoie true
    si au moins l'une des chaînes dans le
    tableau de correspondance, ou false si aucune des
    les chaînes de match.

    Note AnsiIndexText dispose insensiblement et MatchStr est sensible à la casse, donc je suppose que cela dépend de votre utilisation

    EDIT: 2011-09-3: Juste trouvé cette réponse et je pensais que je voudrais ajouter une remarque que, dans Delphi 2010, il est également un MatchText la fonction qui est la même que MatchStr, mais insenstive. -- Larry

    • En fait, il est mieux, juste cherché un peu dans le StrUtils.pas et a trouvé le MatchStr qui retourne un Booléen: Result := MatchStr('Hi', ['foo', 'Bar']); Veuillez l'ajouter à votre réponse.
    • MatchStr et MatchText sont également disponibles en Delphi 2007.
    • équivalent pour delphi 7 ?
    • Dans quelle unité? Je ne peux pas les trouver dans SysUtils
    • ils sont en StrUtils
    InformationsquelleAutor Re0sless
  2. 7

    Le code par Burkhard fonctionne, mais itère inutilement 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;
    InformationsquelleAutor gabr
  3. 1

    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 MyString avec chaque chaîne de caractères dans les Chaînes. Dès que vous trouvez un correspondant, vous pouvez sortir de la boucle for.

    • Cela fonctionne, veuillez mettre à jour votre code en Delphi un: fonction StringInArray(Valeur: string; Cordes: tableau de string): Boolean; var I: Integer; begin Result := False; for I := Faible(Chaînes de caractères) à Élevé(Chaînes de caractères) do Result := Result ou (Valeur = Strings[I]); end;
    • C'est dur d'être un n00b et de ne pas pouvoir faire modifier des trucs 🙁
    InformationsquelleAutor Burkhard
  4. -4

    Vous pouvez essayer ceci:

    Result := Pos(MyString, string1+string2+string3+string4) > 0
    • Désolé, mais votre solution donne des résultats positifs pour les sous-chaînes de chaînes quand il ne devrait pas. par exemple, Pos('ca', 'cat'+'chien') donne 1, mais 0 n'est nécessaire. Pos('td', 'cat'+'chien') donne 3, mais 0 n'est nécessaire.
    • Pire solution, parce que n'est pas nécessaire concat toutes les chaînes. La meilleure solution est l' @Re0sless ci-dessus.
    InformationsquelleAutor Jacky