怎样知道dfm文件中的数字对应的中文字符？急！急！急！急！急！急！急！急！(100分)

T

TourAn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #1

Caption = #21069#21355'ERP--'#26381#35013#29256
这句话原本是caption ＝ ‘前卫ERP－－服装版’，怎样知道delphi（或windows）的
中文码表对应的关系，我是想把它改为繁体，那么简体和繁体的码表的对应关系又是什么，
有没有什么规律？（比如加上多少就是繁体）

 

B

benlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #2

function GetHz(qm, wm: Integer): String;
begin
Result := Chr(160+qm)+Chr(160+wm);
end;
function BigToGb(SurChar)Char;
Var
Der:array [0..255] of Char;
i:Integer;
begin
i:=0;
repeat
if (Sur<#$A1) or (i=StrLen(Sur)-1) or (Sur[i+1]<#$40) then
begin
// is 英文字符
Der:=Sur;
Inc(i);
End else
begin
//is 中文字符
Der:= PBIGChineseType(PBIGTable)^[Sur,Sur[i+1]].HiChar;
Der[i+1]:= PBIGChineseType(PBIGTable)^[Sur,Sur[i+1]].LoChar;
Inc(i);
Inc(i);
end;
until (i>=StrLen(Sur));
Der[StrLen(Sur)]:=#0;
Result:=Der;
end;

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #3

有源文件吗？
1。用DELPHI打开程序，用 SAVE AS 吧窗体文件保存成 TXT 文件，或者选择你要修改的
窗体，按下 ALT + F12 。

 

T

TourAn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #4

benlei，我看不懂你的意思，我的意思是找到简体码转化为繁体码的规律，然后就可
以写程序把dfm文件的简体码转化为繁体码，然后在delphi环境下打开窗口时，对应的简体
中文就变为繁体了。多谢指点！！！
我的OICQ ： 28261363

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #5

不是什么简体和繁体，这是Unicode的码！你用的是D6吧？D5没有这种情况！
有繁体和简体的转换函数，不过很大！有600多KB啊！就不Post出来了。

 

L

lai-sha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #6

Delphi 6 保存的窗体如果有中文就会出现这个#21069#21355'ERP--'#26381#35013#29256
[][?]

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #7

请不要重复发帖！！！　[!]
DFMConverter v0.2
http://delphi.mychangshu.com/folder.asp?id=36&amp;Folder_name=其他
你说的繁体简体是指什么？　GB码与BIG5码的转换吗？
这个网上有现成的控件，还是直接用吧
因为其码表对应关系并不是那么简单的。

 

雁

雁孤行

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #8

多人接受答案了。