请问如何转化unicoede代码？ (100分)

V

virocn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-24

• #1

输入Edit1,如何将Edit1.text转化为unicode码？

WideCharToString 函数 将ANSI字符串转换为UNICODE字符串
WideCharToString 函数 将UNICODE字符串转换为ANSI字符串

怎么用上面的函数啊？？可以举个例子吗？？？谢谢！！

 

W

wbtvc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-24

• #2

var
tip: string;
sz: array[0..127] of WideChar;
begin

Tip := '工是';

StringToWideChar(Tip, sz, 128);
Tip := WideCharLenToString(sz, 128);
edit1.Text := tip;
end;

 

V

virocn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #3

华创科技
译码为
534E521B79D16280

 

地

地瓜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #4

找找delphi help

 

V

virocn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-07

• #5

接受答案了.