平台实现ASC码的方法

atiger

可以使用ORD ，ord 返回是Char。

参考代码如下：

var
  l:char;
  i:integer;
begin
  l:='A';
  i :=ord(l);
  caption :=  business.System.SysUtils.IntToStr(i);
end;


是要返回某个字符串的第一个字母的ASCII码，参考如下：
var
  lStr:String;
    lStrNum :integer;
begin
   lStr:='abc';
   lStrNum := Ord(lStr[1]);
end;