楚
楚辞
Unregistered / Unconfirmed
GUEST, unregistred user!
从网上查找StrToIntDef,功能:将字符串S转化成数字。 说明:如果成功,返回转化后的数字;否则返回默认值Default; 用法:i :=StrToIntDef('s123',23);//i = 123; //想问下,"23"是什么意思? 下面这段程序是FW帮助完成的.我现在不明白的,使用result := StrToIntDef(Str, 0) <> 0;如何实现了"程序要求不能输入小数的功能".比如说.我输入0.2 result := StrToIntDef(Str, 0) <> ,程序提示,必须输入整数,也就是达到我的要求.这个0如何理解?代码如下:Function ISInteger(Str: String): Boolean; Begin result := true; If Str <> '0' Then Begin result := StrToIntDef(Str, 0) <> 0;// End; End;If Not ISInteger(Edit1.Text) Then Begin MessageBox(Handle, '必须整数,请重新输入!', '系统提示',MB_ICONINFORMATION Or MB_OK); Edit1.SetFocus; End