怎么将UNICODE码转成一般的String(30分)

W

wx_zhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-04

• #1

怎么将库中的UNICODE码转成成显示的ASCII字符？

 

间

间接点球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-04

• #2

string（*）或char（*）

 

W

wx_zhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #3

能说详细一些吗？从数据库中怎么读Unicode码，总不能是FieldByName('kd').AsString吧？

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #4

stringtowidechar 函数 将ansi字符串转换为unicode字符串
widecharlentostring 函数 将ansi字符串转换为unicode字符串
widecharlentostrwar 函数 将unicode字符串转换为ansi字符串变量
widechartostring 函数 将unicode字符串转换为ansi字符串
widechartostrvar 函数 将unicode字符串转换为ansi字符串变量

 

W

wx_zhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #5

to htw:
实际读数据的时候怎么写？现在DB中是UNICODE码，而要用ASCII的方式显示。我用下面的方法试过，
还是乱码：
var
str : widestring;
begin
str:=fieldbyname('coments').value;
showmessage(widechartostring(pwidechar(str)));
end;

 

W

wx_zhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #6

没人写过这方面的程序吗？

 

S

SDEAST

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-18

• #7

function unicodetostr(const s: String): String;
var
i,len,j:Integer;
t:String;
begin
Result:='';
len:=Length(s);
i:=1;
while i<=len do begin
t:=Copy(s,i,4);
j:=StrToInt('$'+t);
t:=widechar(j);
Result:=Result+t;
i:=i+4;
end;
end;