Buscar un TObject en un ComboBox

[Angel.Matilla]

Buenas. Vuelvo a la carga con los ComboBox y el método AddObject. Ya en otro hilo pregunté, y al final me salió bien, como localizar un objeto cargado con un int en un ComboBox con este código:

Código PHP:

ComboBox1->ItemIndex = ComboBox1->Items->IndexOfObject((TObject*)fMenu->Query->FieldByName("Zona")->AsInteger); 


Ahora tengo otro problema. Tengo otro ComboBox en el que el AddObject se hace con un AnsiString, lo que hago gracias al código que me pusisteis en Uso de TObject en un TStringList, pero ahora no sé como hacer para encontrar ese valor que he cargado a partir del resultado de un query. He probado esto:

Código PHP:

Clase = new TClase;
Clase->Cadena = fMenu->Query->FieldByName("Pais")->AsString;
ComboBox2->ItemIndex = ComboBox2->Items->IndexOfObject((TObject*)Clase); 


pero me devuelve siempre -1 y por lo tanto no muestra nada. Y el campo que quiero buscar sí devuelve información.

[ecfisa]

Hola.

Es que la nueva instancia creada para la búsqueda, no es igual a la buscada (aunque coincida el atributo Cadena), revisa si te sirve de este modo:

Código PHP:

int searchStrOnObj(TComboBox *CB, const AnsiString str)
{
  int i;
  AnsiString s = "";

  for ( i = 0; s != str && i < CB->Items->Count; i++ )
    s = ((TClase*)CB->Items->Objects[i])->Cadena;

  return i-1;
} 


Ejemplo de uso:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int inx = searchStrOnObj(ComboBox1, Query->FieldByName("Pais")->AsString);
  TClase *cl = reinterpret_cast<TClase*>(ComboBox1->Items->Objects[inx]);

  ShowMessage(ComboBox1->Items->Strings[inx]+"\n"+cl->Cadena);
} 


Saludos

[Angel.Matilla]

¡Perfecto! Muchísimas gracias.

[Angel.Matilla]

Estoy teniendo un problema que no sé como resolver. Hace unos meses se me infectó el ordenador con un virus y me borró un montón de carpetas; gracias a un buen amigo pude rescatar gran parte de la que se había borrado pero algunos ficheros quedaron tocados, entre ellos varios fuentes de algunos proyectos.

Cuando hace unos años planteé este hilo, ecfisa me dio una solución estupenda que me funcionó a la perfección, pero cuando he ido a usarla en un nuevo proyecto, al compilar ese mismo código:

int searchStrOnObj(TComboBox *CB, const AnsiString str)
{
  int i;
  AnsiString s = "";

  for ( i = 0; s != str && i < CB->Items->Count; i++ )
    s = ((TClase*)CB->Items->Objects[i])->Cadena;

  return i-1;
}

Builder me devuelve un error:

[C++ Error] Funciones.cpp(1763): E2451 Undefined symbol 'TClase'

Como tal vez uno de los ficheros que se llevó por delante el virus es donde hacía la definición de ese TClase*, no sé si me falta algo más para eliminar ese error. ¿Podéis ayudarme?

[[escafandra]]

Usas TClase para realizar un casting del puntero CB->Items->Objects[i])->Cadena. Esa definición de TClase debe set tuya. Ahora bien, no se si en Cadena estas guardando un puntero. Ni no es así, el casting no va a funcionar correctamente aunque compile. Eso sólo lo sabes tú.


Saludos.

[Angel.Matilla]

Empezado por escafandra

Usas TClase para realizar un casting del puntero CB->Items->Objects[i])->Cadena. Esa definición de TClase debe set tuya. Ahora bien, no se si en Cadena estas guardando un puntero. Ni no es así, el casting no va a funcionar correctamente aunque compile. Eso sólo lo sabes tú.


Saludos.

El problema, como comentaba, es que el código lo he cogido de otro proyecto que tenía que se vio muy afectado por un virus (varios ficheros quedaron prácticamente destruidos) y no sé como hacer la definición de ese TClase porque no lo recuerdo; ese es el verdadero problema: que no recuerdo como hacer la definición.