用什么办法可以提取一个字符的ACSII码值，并且赋给一个整型变量。该如何解决

用什么办法可以提取一个字符的ACSII码值，并且赋给一个整型变量。
用什么办法可以提取一个字符的ACSII码值，并且赋给一个整型变量。先谢谢各位大侠了，谢谢！！！

[解决办法]

Delphi(Pascal) code

  vInt: Integer;  vInt := ord('C');
[解决办法]
var
 i:integer;
   
  i:=ord('字符');

--------------
楼上正解