StringGrid中处理输入整数的问题

Question

Editprocedure TForm_fyjs.EditKeyPress(Sender: TObject; var Key: Char);
begin
    if not(key in ['0'..'9',#8]) then
    begin
    key:=#0;
    end;
end;/*************************************/
/*1、MY TOOL:*************************/
/*2、Delphi,Oracle,Sybase,C++/C*******/
/*3、PROJECT:*************************/
/*3、Boss*****************************/
/*4、为了五星的目标希望你早点结贴*********/
/*5、在线技术讨论(QQ)：68123095*********/
/*************************************/

Answer 1

把这句写在你stringGrid的事件处理中
if not(key in ['0'..'9',#8]) then
    begin
    key:=#0;
    end;

Answer 2

在onkeypress中
如果可以输入字符
if key = #190 then
begin
 showmessage('不能输入小数')
 key:=#0;
end;
如果不可以输入字符
if not key in ['0'..'9',#8,#9,#46] then
begin
 showmessage('只能输入整数')
 key:=#0;
end;