var i : Integer; begin // showmessage(intToStr(ord(‘a‘))); //返回字母 a 的ASCII的序数值: 97 // showmessage(pred(‘b‘)); //返回字母 b 的前一个ASCII的序数值;和字母 a 相同: // showmessage(intTostr(ord(i))); //返回Integer的可取的最小值:-2147483648 memo1.lines.Add(IntToStr(ord(‘a‘))); memo1.lines.add(‘a的pred=‘+pred(‘a‘)); memo1.lines.add(‘b的pred=‘+pred(‘b‘)); memo1.lines.add(IntToStr(low(i))); end;