如何将一个widechar类型的中文字符转换为ascii，然后正确转换为正确的字符(50分)

bluenats · 2002-05-11

var
c:widestring;
begin
c:='李';
label1.caption:=chr(ord(c[1]));
end;
按照上面的写法将得不到正确的结果，该怎么改进？

ugvanxk · 2002-05-11

一个中文是双字节的，所以用chr不对
label1.caption:=c[1];
他里面有转换的规则需要查书

bluenats · 2002-05-11

不能通过widestring->ansistring进行转换，因为我做的是asp组件，需要和olevariant兼容

xianjun · 2002-05-11

var
c:widestring;
begin
c:='李';
label1.caption:=WideChar(ord(c[1]));
end;

张无忌 · 2002-05-12

var
c:widestring;
s:string;
begin
c:='李';
s:=c; //这样可以直接转换，来自《DELPHI开发人员指南》
label1.caption:=s;
end;

wlmmlw · 2002-05-12

var
c: WideString;
begin
c := '李';
Caption := c;
end;