Caracteres Chino Delphi Xe2

[dison]

Im getting chinese character in delphi XE2 楤潳䁮灤潳瑦慷敲⹳潣m

*I have this to fill a listbox*
listbox1.Items.AddObject( UpperCase(trim(FieldByName('name').AsString)) , TObject(LongInt(NewStr(trim(FieldByName('email').AsString)))) );

and this line to get the email despending of the ItemIndex

sValue:= PString(listbox1.Items.Objects[listbox1.ItemIndex])^ +','

In delphi 2010 ALL IS FINE but in XE2 svalue is 楤潳䁮灤潳瑦慷敲⹳潣m

Please help me
Thansk

[[egostar]]

Dison

Intenta con esto: (Try this)

Código Delphi [-]
  sValue:= PAnsiChar( PString(listbox1.Items.Objects[listbox1.ItemIndex])^ +',' );

Saludos

[CSIE]

Hi Dison,

text in the listbox is displayed correctly?

Regards.

[CSIE]

See here: stackoverflow.com/questions/9459186/delphi-xe2-tdataset-does-not-support-unicode