5,386
社区成员
发帖
与我相关
我的任务
分享一段小程序,请解答,应该不难.
procedure TComboForm.Button1Click(Sender: TObject);
var
i: integer;
begin
//Close;
try
InputForm.GetInteger('sfsf',i);
Except
showmessage('wrong');
end;
//Edit1.Text := inttostr(i);
end;
我想实现在inputform中输入非字符时提示出错，应该怎么做？
var
i: integer;
begin
//Close;
try
InputForm.GetInteger('sfsf',i);
Except
showmessage('wrong');
end;
//Edit1.Text := inttostr(i);
end;
我想实现在inputform中输入非字符时提示出错，应该怎么做？
...全文
请发表友善的回复…
发表回复
symonds 2002-09-02
- 打赏
- 举报
InputForm is what?
