一下代码可以得到按健的ascii号:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  ShowMessage(IntToStr(Ord(Key)));
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
       

解决方案 »

  1.   

    32procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
       Showmessage(Inttostr(key));
    end;
      

  2.   

    谭浩强的《C程序设计》附录有一页ascii与char的对照表
    很多其它书都有,复印一份放在手头是很有必要的
      

  3.   

    32也可以通过form的OnkeyDown
    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      Showmessage(Inttostr(key));
    end;
      

  4.   

    装个Gexpert吧,随时可以查看ascII码,还有其它很多功能