Ошибка Delphi 7.

[stas45rus]

Здравствуйте все. Подскажите пожалуйста. При обработке события Edit1Change вылазит ошибка "is not a valid integer value" и выделяется строка с текстом Edit1.Text:=''.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=strtoint(Edit1.Text);      //Âîçðàñò ÷åëîâåêà
  //Êîëè÷åñòâî óäàðîâ ñåðäöà ïðè ìàêñèìàëüíîé íàãðóçêå
  Edit2.Text:=inttostr(220-n);
  //Êîëè÷åñòâî óäàðîâ ñåðäöà ïðè îïòèìàëüíîé íàãðóçêå
  Edit3.Text:=inttostr(Round((220-n)/100*75));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Î÷èñòèòü ïîëÿ ââîäà
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
  m:integer;
begin
  try
    if (strtoint(Edit1.Text)<0) or (strtoint(Edit1.Text)>220) then
      Edit1.Text:=''
  except
    MessageDlg('Недопустимый диапазон ввода!',mtError,[mbOk],0);
  end;
end;

end.

[kuli4ok]

А edit1change зачем обрабатываешь?
Если его обрабатывать не обязательно, то можно так

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  n: integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if (strtoint(Edit1.Text)<0) or (strtoint(Edit1.Text)>220) then
begin
Edit1.Text:=#0;
MessageDlg('Invalid value!',mtError,[mbOk],0);
exit;
end;
 n:=strtoint(Edit1.Text);
 Edit2.Text:=inttostr(220-n);
 Edit3.Text:=inttostr(Round((220-n)/100*75));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if CloseQuery then close;
end;

end.

Как я понял если edit1.text не соответствует нужному диапазону, то вывести ошибку? Тогда лучше так, ИМХО.

[stas45rus]

спасибо, но мне нужно отдельный обработчик организовать для правильности ввода чисел.

[evg_m]

При обработке события Edit1Change вылазит ошибка "is not a valid integer value"

Вам прямо так и гооврят
''(пустая строка) не явлется числом.

var
  n:  integer;

if edit1.Text <>'' then n:=strtoint(edit1.Text) else n:=0;

if (n<0) or (n>220) then begin 

//изменять данные введенные пользователем 
//    Edit1.Text:=''; 
// и заставлять его набирать число по новой когда может быть достаточно стереть одну единственную цифру 
// да еще и не показать ему это неправильное число 

    MessageDlg('Недопустимый диапазон ввода!',mtError,[mbOk],0);
end;