在delphi中不用异常处理就用if语句如何判断输入的是否整数?该怎么让他提示呢?
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了在delphi中不用异常处理就用if语句如何判断输入的是否整数?该怎么让他提示呢?相关的知识,希望对你有一定的参考价值。
你写的我每个都试了·可为什么要么出错 要么运行起来不对··这是怎么个情况·虽然没解决·同样感谢你们·我加分··再给些答案····
unit main;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfrmmain = class(TForm)
edt1: TEdit;
lbl1: TLabel;
lbl2: TLabel;
btn1: TButton;
btn2: TButton;
procedure btn2Click(Sender: TObject);
function isint(int:string):Boolean;
procedure btn1Click(Sender: TObject);
private
Private declarations
public
Public declarations
end;
var
frmmain: Tfrmmain;
implementation
$R *.dfm
function tfrmmain.isint(int:string):Boolean; //编写isint判断整数的函数,是整数返回真
var
i:Integer;
c:Char ;
begin
Result:= True;
for i:= 1 to Length(int) do //检查每一个数字(实际传进来的是字符串要进一步判断)
begin
c := int[i]; //转化为字符以便于一个个判断
if not(c in ['1'..'9']) then //是否在数字0..9的范围
begin
if not((i = 1)and (c in ['-','+'])) then //第一位是+-号则通过,不是返回假,考录正负整数
begin
Result := False;
Break;
end;
end;
end;
end;
procedure Tfrmmain.btn2Click(Sender: TObject);
begin
edt1.Clear;
end;
procedure tfrmmain.btn1Click(Sender: TObject);
begin
if isint(Trim(edt1.Text)) then
ShowMessage('输入是整数')
else
ShowMessage('输入的不是整数');
end;
end.
在简单点的,
还有就是把isnil函数改成用异常机制判断;在delphi中运行会出错,但生成以后不会出问题;
function tform1.isint(int:string):Boolean;
begin
Result := True;
try
StrToInt(Trim(edt1.Text));
except
Result :=False;
Exit;
end
end;
我都说啦!第二个再在delphi里测试肯定报错。报错就不影响软件生成后的正常运行。
第一个不会。
参考资料:自己写的有整个代码,没什么难度,测试过了,不知道你感觉怎样
参考技术A function IsNums(const Data:string):Boolean;var
i:integer;
begin
result := True;
for i:=1 to length(Data) do
begin
if not (UpCase(Data[i]) in ['0'..'9']) then
begin
result := False;
break;
end;
end;
end; 参考技术B var
Inputs: string;
begin
if (StrToIntDef(Inputs, -1) = -1) and (inputs <> '-1') then
ShowMessage('输入不是整数'); 参考技术C 不需要提示吧,只需要限制只能输入数字和退格键就OK。
procedure Tf_MonLot.LMINNUMKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in['0'..'9',#8]) then
Key:=#0
end; 参考技术D var
n : integer;
begin
if TryStrToInt(Trim(Edit1.Text) , n) then begin
Application.MessageBox('请输入整数' , '提示' , 64);
Edit1.SetFocus;
Exit;
end;
如果输入的是整数,就可以接着执行下面的内容
.....
end;
关于RF中类似于异常(TRY语句)情况的处理
今天在RF中编写UI自动化测试脚本时,发现脚本没有问题,却频繁报错.
因为系统的特殊性,后面的脚本在执行的过程中,必须需要前面的脚本满足一定的条件,后面的脚本才能正常执行.
苦思良久,如果用单元测试框架编写的代码,可以尝试用TRY语句来做判断.
但在RF框架中,没有这个判断语句,是不是就运行不了呢?
答案是否定的,在RF中有个类似的判断语句.run keyword and return status
1,当条件1成立时,第2步才会执行,否则执行第3步.
增加这个判断的话,就可以减少不是因为脚本问题而带来的报错.(有很多报错是因为系统自身的一些属性,或者可以理解为脚本没有按照需求来编写)
以上是关于在delphi中不用异常处理就用if语句如何判断输入的是否整数?该怎么让他提示呢?的主要内容,如果未能解决你的问题,请参考以下文章