Comparar un String con el contenido de un Arreglo

[orodriguezca]

Hola Alejandro73,


Creo que el problema es que el arreglo _arreglo inicia en 1 y el ciclo for lo estás iniciando en cero, es decir, el ciclo for esta revisando las posiciones 0 y 1 del arreglo y no las posiciones 1 y 2. De todas formas es extraño, aunque no encuentre coincidencias, que el código se pueda ejecutar sin que salte un error de indice fuera de rango.

[[nlsgarcia]]

Alejandro73,

Empezado por Alejandro73

...ya lo habia intentado de esa manera pero al momento de comparar no encuentra la igualdad, ¿Sera que el objeto que utilizo como combobox es un TbsSkinComboBox?...

Te comento:

1- El código sugerido en el Msg #2 funciona correctamente en Delphi 7 bajo Windows 7 Professional x32.

2- Al parecer el componente TbsSkinComboBox tiene las propiedades Text y ItemIndex, por lo cual es probable que funcione de forma similar al componente TComboBox de Delphi en lo que respecta a dichas propiedades.

3- Te sugiero hacer un debug del código y verificar el valor de todas las variables relacionadas al problema.

Revisa estos links y verifica las propiedades utilizadas del componente:

Design beautiful Delphi version control address book : http://www.bvbcode.com/code/u53nm8to-1612827

main.pas : http://en.verysource.com/code/2102925_1/main.pas.html

Espero sea útil

Nelson.

[[nlsgarcia]]

orodriguezca,

Empezado por orodriguezca

...es extraño...que el código se pueda ejecutar sin que salte un error de indice fuera de rango...

Si la propiedad Project -> Options -> Compiler -> Runtime errors -> Range checking esta seleccionada, el compilador verificara errores de rango en caso contrario no.

Espero sea útil

Nelson.

[ecfisa]

Hola.

El código de nlsgarcia funciona correctamente. Y como utiliza las funciones Low y High lo haría del mismo modo fuera cual fuere el rango del índice declarado.

Otro ejemplo similar:

Código Delphi [-]
...
var
  Vector: array [1512..1515] of string =('Opcion1', 'Opcion2', 'Opcion3', 'Opcion4');

function IsInArray(const Value: string): Integer;
var
  i: Integer;
begin
  Result := -1;
  for i := Low(Vector) to High(Vector) do
    if Vector[i] = Value then
    begin
      Result := i;
      Exit;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  inx: Integer;
begin
  inx := IsInArray(ComboBox1.Text);
  if inx <> -1 then
    ShowMessage(Format('Encontrado en posición: %d',[inx]))
  else
    ShowMessage('No encontrado');
end;

Si no encuentra un item, me inclino a pensar que los valores del arreglo difieren en algo de los del Combo, como por ejemplo un acento...

Saludos

[Neftali [Germán.Estévez]]

Además de lo comentado ya...

(1) Ejecuta paso a paso para ver qué valen ambos valores en el momento de la comparación. Tal vez alguno incluya espacios o algo similar.
(2) Para las comparaciones de texto, también puedes utilizar AnsiCompareText (evitar mayúsculas y minúsculas diferentes).