Uso de TObject en un TStringList

[ecfisa]

Hola.

Ejemplo:

Código PHP:

...
class ClassStr {
public:
  AnsiString Cadena;
};

ClassStr *cStr;


// Cargar unos pares de cadenas
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 for(int i=0;i<10;i++) {
  cStr = new ClassStr;
  cStr->Cadena = "AnsiString " + IntToStr(i);
  ComboBox1->Items->AddObject("Item "+IntToStr(i), ((TObject*)cStr));
 }
}

// Mostrar ambas cadenas
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
  int inx = ComboBox1->ItemIndex;

  if ( inx != -1 ) {
    AnsiString cadena1 = ComboBox1->Text;
    AnsiString cadena2 = ((ClassStr*)(ComboBox1->Items->Objects[inx]))->Cadena;
    ShowMessage(cadena1 + '\n' + cadena2);
  }
} 


Saludos