在delphi中不用异常处理就用if语句如何判断输入的是否整数？该怎么让他提示呢?

Posted 2023-04-12

你写的我每个都试了·可为什么要么出错 要么运行起来不对··这是怎么个情况·虽然没解决·同样感谢你们·我加分··再给些答案····

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;

关于ＲＦ中类似于异常(ＴＲＹ语句)情况的处理

今天在ＲＦ中编写ＵＩ自动化测试脚本时，发现脚本没有问题，却频繁报错．

因为系统的特殊性，后面的脚本在执行的过程中，必须需要前面的脚本满足一定的条件，后面的脚本才能正常执行．

苦思良久，如果用单元测试框架编写的代码，可以尝试用ＴＲＹ语句来做判断．

但在ＲＦ框架中，没有这个判断语句，是不是就运行不了呢？

答案是否定的，在ＲＦ中有个类似的判断语句．run keyword and return status

1,当条件１成立时，第２步才会执行，否则执行第３步．

增加这个判断的话，就可以减少不是因为脚本问题而带来的报错．(有很多报错是因为系统自身的一些属性，或者可以理解为脚本没有按照需求来编写)