求救：对于VB中的AscW（）在DELPHI中是否有同样的函数？？？？

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := IntToStr(Ord(WideString('中')[1]));
//  Caption := WideChar(20013);//相反
end;

Answer 1

这个返回的是unicode的编码。
你可以这样，给你个例子var
  wc: widechar;
  w:word;
  p:pointer;
begin  wc:= widestring（'中'）[1];
  p= @wc;
  w= word(p^);
  showmessage(IntToStr(w));  //show 20013
end;步骤比较细，你理解就好了

Answer 2

楼上都说了，
Ord(WideString('中')[1]);