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

использование клавиши Enter, ввод десятичных цифр, знака «минус» и
разделителя.
var y:array[0..100] of integer;
    r,rval:array[0..100] of extended;
const n=5;

procedure TForm1.Button6Click(Sender: TObject);
var Code,i:integer;
    b:extended;
    st:string;
begin //Ввод из Memo
 try // Ввод целых чисел
  for i:=0 to n-1 do y[i]:=strToInt(Memo1.Lines[i]);
 except
   ShowMessage('Ошибка при вводе данных');
   Memo1.SetFocus;
   exit;
 end;
           //Ввод вещественных чисел
 try
  for i:=0 to Memo2.Lines.Count-1 do
           r[i]:=strTofloat(Memo2.Lines.Strings[i]);
 except
   ShowMessage('Ошибка при вводе данных');
   Memo2.SetFocus;
   exit;
 end;
           //Ввод вещественных чисел процедурой Val
 for i:=0 to Memo3.Lines.Count-1 do
  begin
   Val(Memo3.Lines.Strings[i],b,Code);
   if Code=0 then rval[i]:=b else
     begin
      ShowMessage('Ошибка в записи числа в позиции '
              +inttostr(Code)+#13#10'В строке '+inttostr(i));
     Memo3.SetFocus;
     end ;
  end;
end;

procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9',#13,#10,'-',','])then key:=#0;
end;

procedure TForm1.Memo3KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9',#13,#10,'-','.'])then key:=#0;
end;

procedure TForm1.Button4Click(Sender: TObject);

                                 79