Objetos en un TString

[Angel.Matilla]

Buenas. Trabajando en Builder 6, tengo un TComboBox, que al fin y al cabo no deja de ser un TString que relleno a partir de este query:

Código SQL [-]
SELECT Codigo, Nombre FROM Partidos ORDER BY Nombre

de esta manera:

Formacion->Items->Clear();
for (; !Query->Eof; Query->Next())
     Formacion->Items->AddObject(Query->FieldByName("Nombre")->AsString,
                                 (TObject *)Query->FieldByName("Codigo")->AsInteger);

Tengo dos preguntas:

1. El valor de TObject ¿puede ser negativo? Lo digo porque cuando hago una búsqueda así:
   

   int nItem = -1;
   Formacion->ItemIndex = Formacion->Items->IndexOfObject((TObject*)nItem)

   me da este error:
   

   Exception clas EStringListError with 'List index out of bunds (28)'

   con lo que interpreto que ha recorrido todo el TComboBox y no ha encontrado el valor -1, que sí aparece al ejecutar el query. Esa misma búsqueda con un valor positivo no da ningún error.
   
2. He visto en la ayuda de AddObject:
   

   El objeto TStrings no es propietario de los objetos que agrega de esta manera. Los objetos agregados al objeto TStrings siguen existiendo incluso si se destruye la instancia de TStrings. Deben ser destruidos explícitamente por la aplicación.

   Con esto entiendo que con Formacion->Items->Clear() no se destruyen los objetos si no estoy equivocado. ¿Cómo haría para eliminar dichos objetos antes de volver a cargar el TComboBox?

[[kuan-yiu]]

En Delphi borro así una lista al completo:

Código Delphi [-]
   for i:=lista.Count-1 downto 0 do 
      lista.Objects[i].Free;
   lista.Clear;

[Angel.Matilla]

Empezado por kuan-yiu

En Delphi borro así una lista al completo:

Muchas gracias. Como siempre Builder y Delphi tiene sus particularidades. En Builder que da así:

while (Formacion->Items->Count > 0)
     Formacion->Items->Delete(0);
Formacion->Items->Clear();

Pero de la otra duda, lo de buscar negativos, ¿nadie puede ayudarme? ¿Tal vez tenga que definir una variable int pero con signo?

[Angel.Matilla]

Pero de la otra duda, lo de buscar negativos, ¿nadie puede ayudarme? ¿Tal vez tenga que definir una variable int pero con signo?

¡Tampoco! He definido una variable signed int (teóricamente abarca el rango -2,147,483,648 a 2,147,483,647), de forma que:

signed int nBuscar;
nBuscar = ((PTreePar)Partidos->GetNodeData(Partidos->FocusedNode))->Codigo;
Formacion->ItemIndex = Formacion->Items->IndexOfObject((TObject*)nBuscar);

Y me da el mismo mensaje de error que comentaba antes.

[Angel.Matilla]

Pues va aser que no. He esatdo buscando y el libro de Marteens "La cara oculta de Delphi" me encontrado con esto:

Código Delphi [-]
I := Lista.IndexOf('OCX');
     if I <> -1 then   
          Lista[i] := 'ActiveX';

Lo que me da a entender que con números negativos no funciona. A lo mejor estoy equivocado.

[Casimiro Notevi]

Pero -1 significa que no ha encontrado un valor en la lista.

[ecfisa]

Hola.

Ese caso es diferente, la función IndexOf devuelve -1 como índice si no encuentra el elemento buscado y eso es lo que evalua en ese if/then.

En cuanto a el caso de IndexOfObject de TListBox no pude encontrar referencia al respecto, pero en las pruebas verifiqué que tanto c++ builder como Delphi no permiten moldeo de tipo TObject sobre números negativos como argumento de la función IndexOfObject; supongo que eso sucede por ser TObject un apuntador.

Saludos