delphi中有没有中文字符转成ASC的函数？比如VB的AscW()样？

Question

delphi中有没有中文字符转成ASC的函数？比如VB的AscW()样？

Answer 1

自己写
var
  a: string;
  I: integer;
begin
  a:=‘圣诞快乐';
  for i := 1 to length(a) do
  beign
    showmessage(ord(a[i]));
  end;

Answer 2

谢了，不过你忘了一点：
showmessage(inttostr(ord(a[i])));
这样才行

Answer 3

var
  a: widestring;
  I: integer;
begin
  a:='圣诞快乐';
  for i := 1 to length(a) do
  begin
    showmessage(inttostr(ord(a[i])));
  end;
end;