Разработка приложений в системе Delphi. Шейкер Т.Д. - 77 стр.

procedure TForm1.Button3Click(Sender: TObject);
var a:integer;
begin
 if Edit1.Text<>''
  then begin
        a:=strtoint(Edit1.Text);
        Label3.Caption:='Введено число '+inttostr(a);
        Label3.Visible:=true;
       end
  else begin
        ShowMessage('В поле ввода пусто.'#13#10'Введите число');
        Edit1.SetFocus;
        exit;
       end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key<'0')or (key>'9')then key:=#0;
end;


   Пример 4. Ввод вещественного числа процедурой Val
   Данные вводятся в Edit2. Преобразование строки в число выполняется
процедурой Val. Анализируется код ошибки. Если в записи числа нет ошибки
(значение кода 0), то полученное число b используется в программе. При
наличии ошибки выводится номер «неверного» символа, компоненту Edit2
передаётся фокус ввода и прерывается выполнение процедуры.

procedure TForm1.Button5Click(Sender: TObject);
var b:extended;
    Code:integer;
begin
Val(Edit2.Text,b,Code);
if Code=0
 then begin
        Label4.Caption:='Введено число '+floattostr(b);
        Label4.Visible:=true;
      end
 else begin
       ShowMessage('Ошибка в записи числа в позиции '
         +inttostr(Code)+#13#10'Повторите ввод');
       Edit2.SetFocus;
       exit;
      end;
end;




                                   77