ロシア語の文字化け (ID:27870)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ロシア語を表示したいのですが、ラベルやボタンの
Captionは文字化けせず、FormやTabSheetのキャプション、
Hintは文字化けします。FormのFontはCharset=RUSSIAN_CHARSET、
Name=Arialで、その他は初期値のままです。
コードも記載いたしますので、ご指導お願い致します。
メッセージをINIファイルにしましたのは、多言語化したかった為です。

var
//infoMsg:ロシア語で"Информация"(情報)が入るはず
  infoMsg : string;

procedure TForm1.FormCreate(Sender: TObject);
var
  IniFile : TIniFile;
  path    : string;
begin
  path:=ExtractFilePath(Application.ExeName)+'RUSSIAN.INI';
  IniFile:=TIniFile.Create(path);
  infoMsg:=IniFile.ReadString('RUSSIAN','INFORMATION','');
  IniFile.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Self.Caption:=infoMsg;//文字化け
  Label1.Caption:=infoMsg;//文字化けせず
  Label1.Hint:=infoMsg;//文字化け
  Button1.Caption:=infoMsg;//文字化けせず
  Button1.Hint:=infoMsg;//文字化け
  SpeedButton1.Caption:=infoMsg;//文字化けせず
  SpeedButton1.Hint:=infoMsg;//文字化け
  TabSheet1.Caption:=infoMsg;//文字化け
  TabSheet1.Hint:=infoMsg;//文字化け
end;

[RUSSIAN.INIのダンプ内容]
000000: 5B 52 55 53 53 49 41 4E [RUSSIAN
000008: 5D 0D 0A 49 4E 46 4F 52 ]..INFOR
000010: 4D 41 54 49 4F 4E 3D C8 MATION=ネ
000018: ED F4 EE F0 EC E0 F6 E8 エ◆ヲ鼡000020: FF 0D 0A 00 00 00 00 00 ........
000028: 00 00 00 00 00 00 00 00 ........

←解決時は質問者本人がここをチェックしてください。

戻る