如何将Big5码转换为unicode?(40分)

S

shiuping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #1

如何将Big5码转换为unicode? 兄弟帮帮忙

 

M

Milpas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #2

在繁体OS下应该是
var
s: string;
ws: wdiestring;
ws := s;
就直接转了吧？ 在简体下转BIG5，应该要对照表

 

S

shiuping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #3

我是说用DELPHI代码来实现，操作系统不论，谢谢

 

B

bluetooth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #4

function Encode2(var s:WideString):String;

var
i,len:Integer;
cur:Integer;
t:String;
begin

Result:=‘’;
len:=Length(s);
i:=1;
while i<=lendo

begin

cur:=ord(s);
//BCD转换
FmtStr(t,‘％4.4X’,[cur]);

Result:=Result＋t;
inc(i);
end;

end;