Objetos en un TString

[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