问一下如何判断EDIT里的字符串能否转型
比如能否转成整型之类的
免得输错了数就出问题谢谢
比如能否转成整型之类的
免得输错了数就出问题谢谢
解决方案 »
- 在footer band的[SUM(<yingshouzhangkuan_dy."收款计费吨">,MasterData1)]不起作用,没任何显示
- 高手到哪去了???
- QRMemo怎么在打印时候不显示啊
- 请高手指教:如何实现数字键的发声程序,要求能像计算器那样,正确念出数字及结果
- 如何将JPG图像转换为bmp文件,并指定图像大小?????
- delphi打包
- 就这100分了,关于reintroduce
- 100分问几个问题
- delphi中有没有划线的控件.....具体是...
- 我想学习Delphi,请高手们推荐一本入门的好书。
- 使用打印窗口的问题,莫名其妙阿
- 还是刚才那个关于TADOTable问题,但是略有不同.
StrToInt(Edit1.text);
except
ShowMessage('Could not Change!');
end;
标题:检查数字字符串
说明:使用于运用程序检查用户数字输入
设计: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 }function IsHex(mStr: string): Boolean; { 返回字符串是否是正确的十六进制表达 }
var
I: Integer;
begin
Result := true;
for I :=1 to Length(mStr) do
begin
//P := Copy(mStr,I,0);
if Pos(Upcase(mStr[I]),'0123456789ABCDEF')>0 then
Result :=Result and true
else
Result :=Result and false;
end;
end;
///////End Source///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
CheckBox1.Checked := IsNumber(Edit1.Text);
CheckBox2.Checked := IsInteger(Edit1.Text);
end;
///////End Demo