Question

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

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

Answer 1

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里测试肯定报错。报错就不影响软件生成后的正常运行。
第一个不会。

Answer 2

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;

Answer 3

var
Inputs: string;
begin
if (StrToIntDef(Inputs, -1) = -1) and (inputs <> '-1') then
ShowMessage('输入不是整数');

Answer 4

不需要提示吧，只需要限制只能输入数字和退格键就OK。
procedure Tf_MonLot.LMINNUMKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in['0'..'9',#8]) then
Key:=#0
end;

Answer 5

var
n : integer;
begin
if TryStrToInt(Trim(Edit1.Text) , n) then begin
Application.MessageBox('请输入整数' , '提示' , 64);
Edit1.SetFocus;
Exit;
end;
如果输入的是整数,就可以接着执行下面的内容
.....
end;