delphi里如何修改字符集

Question

我从网上下载的游戏源码，游戏源码是用delphi写的，但是注释是用韩国的文字写的，
而且form、lable等等控件的caption支持的也是韩国的语言文字，我如何把这些控件中的字符集变成支持中文的？
我现在在form的caption中输入中文，显示出来的都是韩国的文字，看不懂，希望得到帮助。
谢谢。

Answer 1

先做好备份
把该工程的.dof文件用记事本打开
找到
Locale=????
codepage=???
换成
Locale=1028
CodePage=950
保存再打开试试看

Answer 2

你自己打开一个 .dfm 文件，看看里内的内容，就明白如果改了，例如下面Font.Charset = GB2312_CHARSET  
这个就表示使用中GB2312 字符集，韩国语应该是另外一种(好像是 korean 什么的)，你只需把所用这些替换成 GB2312_CHARSET  就可以了Font.Name = #26041#27491#31895#40657#32321#20307后面的是 unicode 表示的中文字体名object frmAdjustMusic: TfrmAdjustMusic
  Left = 254
  Top = 161
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #38899#21709#35843#25972
  ClientHeight = 258
  ClientWidth = 142
  Color = clFuchsia
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 142
    Height = 258
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clFuchsia
    TabOrder = 0
    object ModeLabel: TDRLabel
      Left = 36
      Top = 8
      Width = 70
      Height = 35
      Caption = #35805#31570
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -35
      Font.Name = #26041#27491#31895#40657#32321#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
      HiColor = clBlue
      LoColor = clNavy
      Border = boNone
      Ctl3D = True
      BlinkInterval = 300
      Blink = blNone
      Deep = 1
    end
    object LEDMeter: TLEDMeter
      Left = 31
      Top = 48
      Width = 80
      Height = 202
      BevelStyle = bvRaised
      ColorLED1 = clLime
      ColorLED2 = clYellow
      ColorLED3 = clRed
      ColorSeperator = clBlack
      Direction = mdUp
      Max = 100
      Min = 0
      NumDigits = 20
      Position = 10
      StartColor2 = 0
      StartColor3 = 90
    end
  end
  object WaitTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = WaitTimerTimer
    Left = 4
    Top = 3
  end
end