Unicode

[Den7656]

Доброго времени суток. Прошу помощи при разрешении следующей проблемы:
Пишу переводчик слов, для добавления слова и его перевода в ListView написал функцию типа addTransl('слово','его перевод')

....
procedure addTransl(Str,StrChngd:string);
 begin
 with Form1.ListView1.Items.Add do
begin
Caption := Str;
SubItems.Add(StrChngd);
end;
....

проблема заключается в том, что если, например, при переводе китайского иероглифа в русское слово приходится менять свойство CHARSET в GB2312_CHARSET у компонента TListView, но при этом во второй колонке отображается вместо русского слова непонятные символы, а если не менять
свойство CHARSET у компонента TListView, а оставить DEFAULT_CHARSET, то китайские иероглифы в первой колонке высвечиваются непонятными символами. Как тут быть ? Что посоветуете ?
Спасибо за любую помощь.

[BARNEY]

Ansistring побывали использовать?

[Den7656]

Пробовал Ansistring, тогда иероглифы и там и там получаются (в одной колонке и другой).

[Пепел Феникса]

в не юникодных Делфи string=AnsiString итак.
да и для разных чарсетов анси не особо помошник.

нужна Делфи поновее.

[Den7656]

а без этого никак ?

[Den7656]

Сообщение от Пепел Феникса

нужна Делфи поновее.

а без этого никак ?

[Пепел Феникса]

ну можно попробовать Юникод компоненты(не помню название).
или же написать свой малый компонент для этого.

[Den7656]

блин, жаль... И компонентов-то никогда не писал...

[Аватар]

В GB2312 есть кирилица (http://ru.wikipedia.org/wiki/GB2312). Сделать у ListView GB2312_CHARSET. CP1251 конвертировать перед записью в GB2312. С такой функцией не встречался, возможно она и существует, а можно и самому написать, узнав соответствие между кодами CP1251 и GB2312. И ни каких компонент в этом случае писать не прийдется

ADD

Кстати в таблице символов Китайские (упрощенное письмо) очень похоже на выжимку из GB2312

[Den7656]

Спасибо ОГРОМНОЕ мне это очень помогло )))
Тему можно закрывать.