Uso de TObject en un TStringList

[Angel.Matilla]

Y volviendo a leer la sugerencia de ecfisa creí que había dado con la solución en:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for(int i=0;i<10;i++)
  ListBox1->Items->Add(TS->Strings[i]+ " - " +
    ((TClase*)(TS->Objects[i]))->Cadena);
} 


pero algo no acabo de entender. Estoy trabajando sobre un ComboBox; al fin y al cabo los ítemes definidos no dejan de ser un TStringList. Lo cargo así:

Código PHP:

TClase *Clase;

Motivo->Items->Clear();
Query->Close();
Query->SQL->Text = "SELECT Literal, Codigo FROM Mensajes WHERE Texto IS NULL AND CHAR_LENGTH(TRIM(Codigo)) <> 3 ORDER BY Codigo";
Query->Open();
for (; !Query->Eof; Query->Next())
{
     Clase = new TClase;
     Clase->Cadena = Query->FieldByName("Codigo")->AsString;
     Motivo->Items->AddObject(Query->FieldByName("Literal")->AsString + " (" + Clase->Cadena + ")", ((TObject *)Clase));
}
delete Clase; 


sin problema. Pero al tratar de rescatar el valor del TObject, para ejecutar un query, hago esto:

Código PHP:

Clase = new TClase;
Query->ParamByName("Devuelto")->AsDateTime = StrToDate(Devuelto->Text);
Query->ParamByName("Motivo")->AsString     = ((TClase *)Motivo->Items->Objects[Motivo->ItemIndex]->Cadena); 


y el compilador me da un error E2316 'Cadena' is not a member of 'TObject' en esa última línea de código (Query->ParamByName("Motivo")->AsString). ¿Qué me estoy saltando?

[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

[ecfisa]

Hola.

Y si deseas hacerlo usando los nuevos moldeos;

Código PHP:

  ...
  AnsiString cadena2 = reinterpret_cast<ClassStr*>(ComboBox1->Items->Objects[inx])->Cadena;
  ... 


Saludos

[Angel.Matilla]

GRacias por las contestaciones. Voy a probarlo ahora mismo.