Caracteres Chino Delphi Xe2
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
|