Question

再Delphi编程中‘求一个汉字的ascll码’的函数怎么写

我正在学习Delphi 7.0,对其语言还不了解，请高手指点。谢谢！！！

Answer 1

完整的程序如下：

{$apptype console}
PROGRAM exp;
VAR
s:string;
i:integer;
BEGIN
readln(s);
i:=ord(s[1])*256+ord(s[2]);
writeln(i);
END.

该程序在DELPHI7下调试通过，运行过程如下：

E:\ygb>dcc32 b.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
b.dpr(11)
12 lines, 0.22 seconds, 11512 bytes code, 1809 bytes data.

E:\ygb>b.exe
猪
55021

Answer 2

ASCⅡ码表是美国常用字符与数字代码之间的转换，没有汉字。
汉字要用另外一种码表。
或者可以用字符串处理，Delphi里面的字符串类型可以读写汉字。