随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

var
  c: Char;
  b: Byte;
begin
  c := 'A';
  ShowMessage(c); //A

  b := 65;
  ShowMessage(IntToStr(b)); //65

  c := Chr(66);
  ShowMessage(c); //B

  b := Ord('B');
  ShowMessage(IntToStr(b)); //66
end;

posted on 2007-12-19 18:22  万一  阅读(...)  评论(...编辑  收藏