function check(test:string):boolean
var i:integer;
r:boolean;
begin
for i:=1 to length(test) do
begin
if isnumric(test[i-1]) then
else
r:=false;
check:=r;
if r=fasle then
check:=false
else
check:=true;
end;
end;
var i:integer;
r:boolean;
begin
for i:=1 to length(test) do
begin
if isnumric(test[i-1]) then
else
r:=false;
check:=r;
if r=fasle then
check:=false
else
check:=true;
end;
end;
解决方案 »
- 请教一个开发c/s程序的思路的问题,请指教
- Email保存到数据库中!
- edit或者maskedit只能限制某个字符的输入,能否像datetimepicker那样限制月份和天?
- 如何实时监控计算机执行的程序,当前活动的窗口
- 请问哪位大虾能帮助小弟介绍一下TADOStoreProc使用方法,或者其他的调用存储过程的方法(ADO),谢谢!
- 恳请高手指教,我在线等待;线程调用TWSOCKETSERVER控件事件的问题!
- 求冻结键盘的代码!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 任何控制FORM的外观风格。让它不是立体的。还有。。
- 菜鸟学delphi第二天遇到的问题??
- TDBGRID中的一个cell要保存密码,能否显示为星号(*)?或有第三方控件,请大家指点。
- 关于statusbar的问题
- 多人参与开发项目,每个人一个模块,最后组合起来。请问这如何实现?我是新手,大家能否举个实际的例子说说?
点比较好.
begin
try
StrToInt(aString);
result := true;
except
result ;= false;
end;
end;
http://kingron.myetang.com(*//
标题:检查数字字符串
说明:使用于运用程序检查用户数字输入
设计:Zswang
日期:2002-01-24
支持:[email protected]
//*)///////Begin Source
function IsNumber(mStr: string): Boolean; { 返回字符串是否是正确的数字表达 }
var
{}I: Real;
{}E: Integer;
begin
{}Val(mStr, I, E);
{}Result := E = 0;
{}E := Trunc(I);
end; { IsNumber }function IsInteger(mStr: string): Boolean; { 返回字符串是否是正确的整数表达 }
var
{}I: Integer;
{}E: Integer;
begin
{}Val(mStr, I, E);
{}Result := E = 0;
{}E := Trunc(I);
end; { IsInteger }
///////End Source///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
{}CheckBox1.Checked := IsNumber(Edit1.Text);
{}CheckBox2.Checked := IsInteger(Edit1.Text);
end;
///////End Demo
StrToIntDef();
StrToFloatDef();
TryStrToInt();
TryStrToFloat();
AA:=INTTOSTR(STRTOINT(AA));
RESULT:=true;
EXCEPT
RESULT:=FALSE;
END;
你只要对字符串的扫描中加入如果当前ASC值〈48或>57退出程序表明该串有非数字字符
第二个答案好像不对,如果字符串过长的,同样不能顺利转换成INT,也可以抛出异常。
不过对你适不适用就不知道了
var
I: Integer;
begin
Result := True;
for I := 1 to Length(N) do
begin
if not (N[I] in ['0'..'9', '.']) then
begin
Result := False;
Break;
end;
end;
end;
<pre>
第二个答案(myghost9(myghost9) 的)应该是正确的,在DELPHI中INT包括普通的INT(32位,4个字节存储)型和INT64(64位,8个字节存储)型,如果这样还不能满足你的需要的话,那么建议你使用数组存储数据,并遍历数组来比较其是否为数字。