Delphi5 и Unicode

07.10.2010, 22:18. **Показов** 2377. **Ответов** 1

Author24 — интернет-сервис помощи студентам

У меня есть старая программа, которая написана еще на D5. Она работает, только теперь не на всех компьютерах отображаются греческие буквы. На некоторых - вместо греческих отображаются русские. В программе создается "клавиатура" с греческими буквами. Код такой:

Delphi

Const RusAlph='бвгдежзийклмнопрсуфхцчшщБВГДЕЖЗИЙКЛМНОПРСУФХЦЧШЩ';
type   TGreekButton = class(TSpeedButton);
Var GreekButton: TSpeedButton;
begin
  len:=length(RusAlph);
  for i:=1 to len do
  begin
    with GreekButton do
    begin
      Font.Name:='Arial Unicode MS';
      Font.CharSet:=Greek_CharSet;
      Caption:=RusAlph[i];
     end;
  end;
end.

Пробовала и через WideChar вот так:
Caption:=WideChar(ord(RusAlph[i])+848);

Все равно не получается. Что можно сделать? На новые версии Delphi переходить не хочу. Ведь это в общем-то мелочь и должен быть выход.

@Vas-e-na · 07.10.2010, 22:46

WideChar - это UTF-16, если вы точно знаете коды ваших символов в этой кодировке, то можете в принципе так и получать их:

Delphi

1	Caption:=WideChar(<код символа для UTF-16>);

	07.10.2010, 22:46