在保存数据之前，怎么判断Edit->Text 是数值型数据？

[lft1]

在保存数据之前，怎么判断Edit->Text 是　数值型数据？

[controstr]

在Edit的按键事件里判断按下的键是不是数字的，如果不是数字的就不让输进去

if( Key < '0' || Key > '9' )
{
Key = 0;
}

[i_love_pc]

没找到现成的函数，可以自己写一个。
可以通过判断每个字符的ascii码实现，也可以用try...catch...捕获StrToInt()转换异常的方式实现.

[cczlp]

int n;
try
{
n = Edit1->Text.Trim().ToInt();
}
catch(...)
{
ShowMessage("not number");
}
或者n = Edit1->Text.Trim().ToIntDef(0)

[僵哥]

好象有一个TryStrToInt

[ttcx2008]

4楼的做法是不严谨的，如果用右键菜单粘贴方式把非数字值粘贴进去呢？

[ttcx2008]

最好用MaskEdit控件，指定EditMask属性即可。

[小笨象]

cczlp 已经足够了。
TryStrToInt也可。
定义一个默认值，如99999
返回这个值，就不是数值。

[threelock]

使用正则表达式。

[lc2236]

char szbuf[10];
Edit1->GetTextBuf(szbuf);
int value=atoi(szbuf);

[honghust]

都是正解.

[kiki_hipig]

bool j = false;
try
{
StrToFloat(LabeledEdit1->Text);
j = true;
}
catch(Exception &E)
{
AnsiString Message;
Message = "Only input munber...\nCant input \"" + LabeledEdit1->Text + "\"";
Application->MessageBox(Message.c_str(), Caption.c_str(),
MB_OK + MB_ICONSTOP + MB_TOPMOST);
j = false;
}
if(j)
{
....................
}
else
..................

[shaoux]

int n;
try
{
n = Edit1-> Text.Trim().ToInt();
}
catch(...)
{
ShowMessage("not number");
}
或者n = Edit1-> Text.Trim().ToIntDef(0)

建议这个