Najlepszy sposób, aby znaleźć, jeśli ciąg jest w postaci listy (bez rodzajowych)

Question

Chcę zrobić coś takiego:

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

ten nie może być używany z ciągów i nie chcę zrobić coś jak to:

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

Również myślę, że tworzenie listy wyników do wykonania tego jest zbyt skomplikowane.

Czy jest jakiś inny sposób, aby to osiągnąć?

Dzięki.

Answer 1

Można użyć AnsiIndexText (const AnsiString AText, const array of AValues ​​String): Integer lub MatchStr (const AText: string; const AValues: array of string): Boolean;

Coś

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

lub

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

AnsiIndexText zwraca 0 offset indeks pierwszego ciąg stwierdzi w AValues ​​który pasuje AText rozróżniana wielkość liter. Jeśli ciąg określony przez AText nie ma dopasowania (w dużym stopniu bez rozróżniania wielkości liter) w AValues, AnsiIndexText zwraca -1. Porównania są oparte na bieżącym locale systemu .

MatchStr określa, czy którykolwiek z strun w AValues ​​tablicy dopasować ciąg określony przez AText używając case wrażliwą porównania. Zwraca true , jeśli co najmniej jeden z ciągów w macierzy jest zgodny lub fałsz, jeśli żaden z ciągów nie pasuje.

Uwaga AnsiIndexText ma rozróżniana wielkość liter i MatchStr jest wielkość liter, więc myślę, że to zależy od zastosowania

EDIT: 03/09/2011: Wystarczy znaleźć tę odpowiedź i że chciałbym dodać notatkę że w Delphi 2010 istnieje również funkcja MatchText, która jest taka sama jak MatchStr, ale przypadek nie jest ważny.- Larry

Answer 2

Oto funkcja, która spełnia swoje zadanie:

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; 

W rzeczywistości, nie porównać mystring z każdej struny w łańcuchach. Jak tylko znajdziesz jedną pasującą, możesz wyjść z pętli for.

Answer 3

Kod Burkharda działa, ale niepotrzebnie przechodzi przez listę, nawet jeśli znaleziono dopasowanie.

lepsze podejście:

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

Można spróbować:

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