delphi里怎么修改字符集
delphi里如何修改字符集
我从网上下载的游戏源码，游戏源码是用delphi写的，但是注释是用韩国的文字写的，
而且form、lable等等控件的caption支持的也是韩国的语言文字，我如何把这些控件中的字符集变成支持中文的？
我现在在form的caption中输入中文，显示出来的都是韩国的文字，看不懂，希望得到帮助。
谢谢。
------解决方案--------------------
先做好备份
把该工程的.dof文件用记事本打开
找到
Locale=????
codepage=???
换成
Locale=1028
CodePage=950
保存
再打开试试看
------解决方案--------------------
你自己打开一个 .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
我从网上下载的游戏源码，游戏源码是用delphi写的，但是注释是用韩国的文字写的，
而且form、lable等等控件的caption支持的也是韩国的语言文字，我如何把这些控件中的字符集变成支持中文的？
我现在在form的caption中输入中文，显示出来的都是韩国的文字，看不懂，希望得到帮助。
谢谢。
------解决方案--------------------
先做好备份
把该工程的.dof文件用记事本打开
找到
Locale=????
codepage=???
换成
Locale=1028
CodePage=950
保存
再打开试试看
------解决方案--------------------
你自己打开一个 .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