这次的很简单,快进来拿分吧 (50分)

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #1

{现在我要把d6格式的DFM,中的类似于#3709这样的unicode码,转为汉字,widechar(#37096)的
结果是汉字'部',可我如何在widechar中用变量呢,我用以下语句,得到的结果却是错误的
var
tmp:string; //unicode码
hz:sting;//汉字
begin
tmp:='#37096';
hz:=widechar(pchar(tmp)); //如果直接用widechar(#37096),结果却是对的
end;
多谢!}

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #2

procedure TForm1.Button3Click(Sender: TObject);
var
tmp:string;
begin
tmp:='#37096';
tmp:=copy(tmp,2,length(tmp)-1);
showmessage(widechar(strtoint(tmp)));
end;

 

J

jinmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #3

var
tmp:widechar;
...
tmp:=#37096;
edit.text:=tmp;

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #4

widechar = ansichar

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #5

jsxjd的方法没错

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #6

以上问题已ok,不好意思,再问一下,用什么方法,替换掉在memo1中我找到的字符串!
,等下就放分了

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #7

散了吧!多谢拉