C CrendKing Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-28 #1 在 QB、VB 里我们可以用 Chr(39) 和 ASC("F") 两个函数来实现字符和 ASCII 之间的转换,但在 Delphi 里就只提供了 Chr 函数,那么如何实现 字符 => ASCII 呢?
在 QB、VB 里我们可以用 Chr(39) 和 ASC("F") 两个函数来实现字符和 ASCII 之间的转换,但在 Delphi 里就只提供了 Chr 函数,那么如何实现 字符 => ASCII 呢?
S szf Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-28 #2 Ord(字符) 其实Ord是任何可枚举的类型的取序数函数,如你自定义 TMyType = ( mtA,mtB,mtC); 则Ord(mtA)=0, Ord(mtB)=1 其实用法你自己研究吧。
Q qxd Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-28 #3 例子: type Colors = (RED,BLUE,GREEN); var S: string; begin S := 'BLUE has an ordinal value of ' + IntToStr(Ord(BLUE)) + #13#10; S := S + 'The ASCII code for "c" is ' + IntToStr(Ord('c')) + ' decimal'; MessageDlg(S, mtInformation, [mbOk], 0); end;
例子: type Colors = (RED,BLUE,GREEN); var S: string; begin S := 'BLUE has an ordinal value of ' + IntToStr(Ord(BLUE)) + #13#10; S := S + 'The ASCII code for "c" is ' + IntToStr(Ord('c')) + ' decimal'; MessageDlg(S, mtInformation, [mbOk], 0); end;