Objetos en un TString

[[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 Noteví]

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

[Angel.Matilla]

Empezado por 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 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

Efectivamente. He estado haciendo pruebas y no me ha quedado más remedio que, en aquellos casos que el código es negativo, "inventarme" otro que sepa que va a ser imposible alcanzar en ningún caso (sumándole a los negativos una cantidad enorme como 100 millones). Gracias por la respuesta.

[ecfisa]

Hola Angel.

Tengo que rectificar mi mensaje anterior ya que no es correcto en su totalidad, en esta última prueba funcionan los valores negativos menos el -1:

Código PHP:


void __fastcall TForm1::FormCreate(TObject *Sender)
{
  lb->Items->AddObject("menos 1", (TObject*)-1);
  lb->Items->AddObject("menos 2", (TObject*)-2);
  lb->Items->AddObject("menos 3", (TObject*)-3);
  lb->Items->AddObject("menos 4", (TObject*)-4);
  lb->Items->AddObject("menos 5", (TObject*)-5);
}

void __fastcall TForm1::lbClick(TObject *Sender)
{
  if (lb->ItemIndex == -1) return;

  Caption = (int)(lb->Items->Objects[lb->ItemIndex]);
} 


Dá error cuando se selecciona "menos 1" (-1)

Saludos