#20013#22269如何转化成‘中国’二字。用ShowMessage(#20013#22269)是显示中国二字当然不用说，问题是用程序如何转化后保存到某文件

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #1

#20013#22269如何转化成‘中国’二字。用ShowMessage(#20013#22269)是显示中国二字当然不用说，问题是用程序如何转化后保存到某文件？？？？？急 (5分)<br />#20013#22269如何转化成‘中国’二字。用ShowMessage(#20013#22269)是显示中国
二字当然不用说，问题是用程序如何转化后保存到某文件，在文件中要以转化
后的码（汉字）表示？？？？？急

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #2

gz

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #3

向上吧，，，，帮忙

 

G

godzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #4

欧也有类似的问题，谁解决了给300分！
上面的showmessage(#22269)可以显示‘国’字，但是
showmessage(#265) （或者showmessage(#$0109)）就
不能显示其对应的字符（在windows2000的附件里里有个字符映射表可以查阅）
而是显示一个?
以前也问过这个问题，但没有解决。还翻过DELPHI的技术手册，说是DELPHI的VCL不支持
UNICODE字符，需要自己写控件，但欧不知道怎么去做。

 

G

goujie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #5

你可以声明一个widechar数组来存储后转换，给你个例如：
procedure TForm1.Button1Click(Sender: TObject);
var
aa,bb:string;
cc:array[0..1] of widechar;
begin
cc[0]:=#20013;
cc[1]:=#22269;
aa:=cc;
ShowMessage(aa);
end;

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #6

我不是要showmessage出来，我是要将它输出一个文本。就是#20013转化成
中字保存在某文件里头

 

G

goujie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-05

• #7

这样不就可以哪：
procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
aa,bb:string;
cc:array[0..1] of widechar;
begin
cc[0]:=#20013;
cc[1]:=#22269;
aa:=cc;
//ShowMessage(aa);
assignfile(f,'aa.TXT');
rewrite(f);
writeln(f,aa);
closefile(f);
end;

 

舞

舞雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-05

• #8

转换一下！！没做过，不过我想这样应该可以吧！如果字转换的字符不是太多的话！
以10个为例
const
max=10
type
str=record
index:integer; //存放号码，或者用index:string; 我想用string类型应该好一点
chars:char;
end;
var
str_s:array [1..max] of str;
begin
str_s[1].index:='#20013";
str_s[1].chars:='中';
...
find_procedure
end.
这样应该可以吧，不这，我想应该有简单的方法吧

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #9

多人接受答案了。