Question

delphi中我想实现对Edit控件输入内容的控制：如果输入的是数字，则程序继续，负责报错，重新输

delphi中我想实现对Edit控件输入内容的控制：如果输入的是数字，则程序继续，负责报错，重新输入！

Answer 1

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1Exit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Exit(Sender: TObject);
var
  a:real;
  i:integer;
begin
      val(edit1.Text,a,i);
      if i<>0 then begin
        ShowMessage('error');
        edit1.SetFocus;
      end
      else
        edit2.Text:=floattostr(a) ;
      { 以下使用 try 方式也是可行的，但影响集成调试
      try
        i:=strtoint64(Edit1.text);
      except
        ShowMessage('error');
        edit1.SetFocus;
      end; }
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
     form1.SetFocusedControl(edit2);
end;
end.

Answer 2

var i:integer;

try
i:=strtoint64(Edit1.text);
except
ShowMessage('error');
end;

Answer 3

哥哥