Problema com objeto em COMBOBOX

Delphi

17/09/2017

Gente, alguém pode dar uma luz do por quê do retorno estar desse jeito ?


o conteudo de varC_TempString deveria ser: "OS.EQUIPAMENTO" mas retorna um monte de "caracteres"


#$0E00#$0CFD'쬐'#$0974'ผ'#$0CFD#8#$FF00'`'#0#0#0#0#0#0#0'ﭰഘ쬴R'#0#0'僨S켠'#$0D11'쬐'#$0974'켼'#$0D11#8#$FF00'`'#0#0#0#0#0#0#0'ﭰഘ쬴R'#0#0'紀V鞀'#$0CFE'Ȑ'#$0975#0#0'㬻;`'#0#0#0#0#0#0#0'ﭰഘ쬴R'#0#0'紀VӐইȐ'#$0975#0#0'㬻;`'#0#0#0#0#0#0#0'ﭰഘ쬴R'#0#0'僨S쾐'#$0D11'쬐'#$0974'쾬'#$0D11#8#$FF00'`'#0#0#0#0#0....


grpPesquisa.Items.Clear;
grpPesquisa.Items.AddObject( 'CÓDIGO' , TObject( varC_AliasName + 'CODIGO' ) );
grpPesquisa.Items.AddObject( 'DESCRIÇÃO' , TObject( varC_AliasName + 'EQUIPAMENTO' ) );
grpPesquisa.Items.AddObject( 'CLIENTE' , TObject( 'C.' + _NomeRazSoc ) );
grpPesquisa.Items.AddObject( 'DATA CADASTRO' , TObject( varC_AliasName + 'DTCADASTRO' ) );
grpPesquisa.Items.AddObject( 'DATA FECHAMENTO' , TObject( varC_AliasName + 'DTFECHAMENTO' ) );

grpPesquisa.ItemIndex := 1;

.
.
.
varC_TempString := String( grpPesquisa.Items.Objects[ grpPesquisa.ItemIndex ] );
Lucio Motta

Lucio Motta

Curtidas 0

Respostas

Felipe Morais

Felipe Morais

17/09/2017

Bom dia, Lucio

Qual é seu objetivo? Ter uma lista de objetos armazenados? Trazer o texto da ComboBox? Poderia contextualizar melhor a situação pra podermos ajudá-lo?

Abraços!
GOSTEI 0
Lucio Motta

Lucio Motta

17/09/2017

trazer o texto... mas consegui resolver preenchendo o VALUE do combobox.. obrigado.. Só nao entendi pq nao funcionou...pq em todos os posts que li sobre adicionar o objeto e fazer CAST de volta como string tá igual... Mas..tudo bem...
GOSTEI 0
Felipe Morais

Felipe Morais

17/09/2017

Talvez o resultado veio desta maneira porque você fez um cast de TObject.
GOSTEI 0
POSTAR