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  万一  阅读(4428)  评论(1编辑  收藏  举报