mejor manera de saber si una cadena está en una lista (sin genéricos)

Question

quiero hacer algo como esto:

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

Esto no se puede utilizar con cuerdas y no quiero hacer algo como esto:

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

También creo que crear una StringList para hacer esto es demasiado complejo.

¿Hay alguna otra forma de lograr esto?

Gracias.

Answer 1

Usted podría utilizar AnsiIndexText (const AnsiString AText, const gama de aValores de cuerda): número entero o MatchStr (const AText: string; aValores const: array de cadenas): Boolean;

Algo así como

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

o

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

AnsiIndexText devuelve el 0-offset índice de la primera cadena que encuentra en aValores que coincide AText mayúsculas y minúsculas. Si la cadena especificada por AText no tiene una coincidencia (que no distingue entre mayúsculas y minúsculas) en AValues, AnsiIndexText devuelve -1. Las comparaciones se basan en la configuración regional actual del sistema .

MatchStr determina si cualquiera de los cadenas en los aValores matriz coinciden con la cadena especificado por AText usando un caso comparación sensible. Devuelve verdadero si al menos una de las cadenas en la matriz coincide, o es falso si ninguna de las cadenas coincide.

Nota AnsiIndexText tiene mayúsculas y minúsculas y MatchStr entre mayúsculas y minúsculas, así que supongo que depende de su uso

EDIT: 03/09/2011: Acabo de encontrar esta respuesta y pensaba que iba a poner una nota que, en Delphi 2010 también hay una función MatchText que es lo mismo que MatchStr pero insensible.- Larry

Answer 2

Aquí es una función que hace el trabajo:

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; 

De hecho, usted compara MiCadena con cada cadena de cuerdas. Tan pronto como encuentre una coincidencia puede salir del ciclo for.

Answer 3

El código de Burkhard funciona, pero se repite sin necesidad sobre la lista, incluso si se encuentra una coincidencia.

mejor enfoque:

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

Puede probar esto:

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