Из Делфи в Java

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus, Spin, Gauges, jpeg;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Gauge1: TGauge;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Memo1: TMemo;
    Image3: TImage;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
TYPE {типы данных}
Neuron=record {элемент нейрополя - нейрон}
 WX,WY:real;     {веса входных связей}
 LockX,LockY:integer; {координаты расположении на поле}
 N_OUT:real;     {выходной сигнал нейрона}
end;
VAR {переменные, используемые при моделировании}
 Neurons:integer; {число нейронов в нейрополе}
 ALPHA:real;   {коэффициент пластичности}
 R_ACTIV:Byte; {радиус "пузырька" активности}
 Node:array[1..40,1..40] of Neuron; {нейрополе - одномерная сеть Кохонена}
 KOEFF_ALPHA:real; {множитель для коэффициента пластичности}
 SHOW_CONNECTIONS:BOOLEAN; {флаг разрешения отображения связей}
 U:integer;{ Общее число производимых итераций в сети }
 Step:integer;{ Значение шага модификации размера области активации и коэффициента пластичности}
 
 
Procedure Line(X1,Y1,X2,Y2:integer);
begin { рисование линии }
     With Form1.Image1.Canvas do
     begin
          MoveTo(X1,Y1);
          LineTo(X2,Y2);
     end;
     With Form1.Image2.Canvas do
     begin
          MoveTo(X1,Y1);
          LineTo(X2,Y2);
     end;
end;
 
 
procedure CLEAR_SCREEN; { ОЧИСТКА ЭКРАНА }
Var NewRect: Trect; { тип прямоугольного элемента в Delphi}
begin
   With Form1 do { Работа с "формой" Delphi}
   begin
   { основной экран }
   Image1.Canvas.Brush.Color:=clNavy; { цвет фона  }
   { размер области изображения }
   NewRect := Rect(0, 0, Image1.Width, Image1.Height);
   Image1.Refresh; { очистить рабочую область памяти под изображение }
   Image1.Canvas.FillRect(NewRect); { изобразить пустой прямоугольник }
 
   { вспомогательный экран }
   Image2.Canvas.Brush.Color:=clNavy; { цвет фона  }
   { размер области изображения }
   NewRect := Rect(0, 0, Image2.Width, Image2.Height);
   Image2.Refresh; { очистить рабочую область памяти под изображение }
   Image2.Canvas.FillRect(NewRect); { изобразить пустой прямоугольник }
   end; {of With Formi }
end;
 
 
Procedure DRAW_NET;
{ ПРОЦЕДУРА ОТОБРАЖЕНИЯ СОСТОЯНИЯ СЕТИ В ВИДЕ УЗЛОВ, СОЕДИНЕННЫХ СВЯЗЯМИ }
 Const
R=2; { радиус изображения нейрона - узла сети }
CLine=clBlack; { цвет линии межнейронной связи }
CFace=clBlack; { цвет обрамления тела нейрона }
CBody=clYellow; { цвет заполнения тела нейрона }
Var i,j,k:integer; { счетчики }
 
begin
     if SHOW_CONNECTIONS then { проверить флаг отображения связей}
     begin { ОТОБРАЗИТЬ СВЯЗИ }
          Form1.Image1.Canvas.Pen.Color:=CLine; { цвет связей }
       {отображение связей от нейрона к нейрону, с учетом их общего количества}
       for i:=1 to Neurons do
       begin
         for j:=1 to Neurons do
         begin
           With Form1.Image1.Canvas do
           begin { установить перо в положение i-го нейрона}
                 MoveTo(Node[i,j].LockX,Node[i,j].LockY);
                 if i<>Neurons then { если это не последний нейрон}
                 begin
                      LineTo(Node[i+1,j].LockX,Node[i+1,j].LockY);
                 end;
                 MoveTo(Node[i,j].LockX,Node[i,j].LockY);
                 if j<>Neurons then
                 begin
                      LineTo(Node[i,j+1].LockX,Node[i,j+1].LockY);
                 end;
                 { провести линию до i+1-го нейрона}
           end;
         end;
       end;
     end;
       {ОТОБРАЗИТЬ УЗЛЫ}
       Form1.Image1.Canvas.Pen.Color:=CFace; { цвет обрамления узла}
       Form1.Image1.Canvas.Brush.Color:=CBody; { цвет узла }
       for i:=1 to Neurons do { Для всех нейронов в сети Кохонена}
       for j:=1 to Neurons do
       With Node[i,j] do { Отобразить нейрон в его координатах }
       Form1.Image1.Canvas.Ellipse(LockX-R,LockY-R,LockX+R,LockY+R);
end;
 
 
Procedure GET_IMAGE; { ПОСТРОИТЬ ИСХОДНЫЙ ОБРАЗ }
Var NewRect: Trect; { тип прямоугольного элемента в Delphi}
begin
   With Form1 do { Работа с "формой" Delphi}
   begin
   Image1.Canvas.Brush.Color:=clSilver; { цвет фона  }
   { размер области изображения }
   NewRect := Rect(0, 0, Image1.Width, Image1.Height);
   Image1.Refresh; { очистить рабочую область памяти под изображение }
   Image1.Canvas.FillRect(NewRect); { изобразить пустой прямоугольник }
   With Image1.Canvas do { работа с изображением русла }
   begin { Копировать изображение микрососудов из резервной области, }
         { хранящей начальное изображение }
         CopyRect(Image1.ClientRect, Image2.Canvas, Image2.ClientRect);
   end; { of With Image1.Canvas }
   end; {of With Formi }
end;
 
 
procedure GetRandomNet;
{ ЗАДАТЬ НАЧАЛЬНОЕ ПОЛОЖЕНИЕ НЕЙРОНОВ, РАСПОЛОЖИВ ИХ СЛУЧАЙНЫМ ОБРАЗОМ }
Var i,j:integer; {счетчик}
begin
     With Form1.Image1. Canvas do { с полем изображения }
     for i:=1 to Neurons do { для всех нейронов сети }
     for j:=1 to Neurons do
     With Node[i,j] do { для i-ro нейрона в сети }
     begin
          LockX:=RANDOM(Form1.Image1.Width); {Случайная координата по Х }
          LockY:=RANDOM(Form1.Image1.Height); {Случайная координата по Y}
          WX:=LockX; { Вес по Х как координата }
          WY:=LockY; { Вес по Y как координата }
     end;
end;
 
 
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
    R_ACTIV:=SpinEdit1.Value;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
{ПРОЦЕДУРА САМООБУЧЕНИЯ ДВУМЕРНОЙ СЕТИ КОХОНЕНА С ЦЕЛЬЮ
РАВНОМЕРНОЙ АППРОКСИМАЦИИ ПЛОТНОСТИ РАСПРЕДЕЛЕНИЯ ОПТИЧЕСКОГО
ИЗОБРАЖЕНИЯ }
Const
ColorS=clRed; { Условие о том, что  на изображении - красный }
 Var
i,j:integer; {счетчики}
T:integer; { счетчик общего числа итераций в нейросети}
Sum:real; { переменная накопления значений суммы}
Max:real; { Переменная для контроля максимального выхода нейрона}
dmX,dmY:real; { дифференциалы весов связей }
inY,inX,outY,outX:integer; { коордтнаты нейронов, чьи веса модифицируются}
{в соответствии с размерами области активации }
iMax,jMax: integer; { координаты нейрона с максимальным значением возбуждения}
{ что соответствует минимуму значения параметра N_OUT }
xS,yS: integer; { Координаты точки изображения o сигнала "возбуждения"}
R:real;
Code:integer;
 
begin { ИТЕРАЦИИ ДВУМЕРНОЙ СЕТИ КОХОНЕНА }
 
 
 
 
{Шаг 1}
GetRandomNet;
DRAW_NET; { новая отрисовка сети } {Шаг 1}
 
{ Установить цвет начальной точки как цвет фона} {Шаг 2}
Val(Edit1.Text, R, Code);
ALPHA:=R;
Val(Edit3.Text, R, Code);
KOEFF_ALPHA:=R;
Gauge1.MinValue:=1;
Gauge1.MaxValue:=U;
for T:=1 to U do { Цикл по полному числу итераций в сети}
begin {ШагЗ}
      Gauge1.Progress:=T;
 
      if(T Mod Step)=0
      then
      begin {Шаг 4}
         ALPHA:=ALPHA*KOEFF_ALPHA; { изменить степень пластичности }
         if R_ACTIV>1 then R_ACTIV:=R_ACTIV-1; { изменить радиус области активации }
      end;
      {Шаг 5}
      GET_IMAGE; { Обновить исходный образ } {Шаг 6}
      i:=1;j:=1; { Начальное значение положения точки на изображении }
      while Image2.Canvas.Pixels[j,i]<>clRed do { Выбрать случайную точку изображения }
      begin        { для использования в качестве сигнала возбуждения }
         i:=RANDOM(Image1.Height);
         j:=RANDOM(Image1.Width);
      end;
      yS:=i; { Координата Y точки, принадлежащей фигуре }
      xS:=j; { Координата X точки, принадлежащей фигуре } {Шаг 7}
      for i:=1 to Neurons do { вычисление выходных сигналов для всех нейронов }
      begin
         for j:=1 to Neurons do
         begin
            With Node[i,j] do { выход i-ro нейрона }
            N_OUT:=SQRT(SQR(xS-WX)+SQR(yS-WY));
            { Вычисление значения выходного сигнала как суммы векторных разностей}
            { координат i,j-ro нейрона и точки изображения с сигналом возбуждения }
         end;
      end;
      {Шаг 8}
      { определение нейрона с максимальным значением выхода}
      { !!! Минимальным значением N_OUT !!! }
      Max:=1E+20; { условный начальный максимум сигнала }
      for i:=1 to Neurons do { для всех нейронов в сети }
      begin
         for j:=1 to Neurons do
         With Node[i,j] do { для i-ro нейрона }
         begin
              if N_OUT<=Max then { если сигнал выхода меньше минимального }
              begin
                Max:=N_OUT;
                iMax:=i; { позиция нейрона максимальной активности }
                jMax:=j;
              end;
         end;
      end;
      { модификация связей внутри области возбуждения }
      { Определение номеров начального и конечного нейрона в области активации }
      {Шаг 9}
      if (iMax-R_ACTIV)<=0
      then inY:=1 { область активации вдоль оси сети }
      else inY:=iMax-R_ACTIV; { номер начального (левого) нейрона в области }
      if (iMax+R_ACTIV)>Neurons
      then outY:=Neurons
      else outY:=iMax+R_ACTIV;
 
      if (jMax-R_ACTIV)<=0
      then inX:=1 { область активации вдоль оси сети }
      else inX:=jMax-R_ACTIV; { номер начального (левого) нейрона в области }
      if (jMax+R_ACTIV)>Neurons
      then outX:=Neurons
      else outX:=jMax+R_ACTIV;
 
      { модификация весов связей внутри области активации }
      for i:=inY to outY do
      begin
         for j:=inX to outX do
         begin
              With Node[i,j] do
              begin
                   WX:=WX+ALPHA*(xS-WX);
                   LockX:=ROUND(WX); { новое положение по X}
                   WY:=WY+ALPHA*(yS-WY);
                   LockY:=ROUND(WY); { новое положение по Y }
              end;
         end;
      end;
      {Шаг 11}
      DRAW_NET; { новая отрисовка сети } {Шаг 12}
      { завершение полного цикла по заданному числу итераций }
end; { завершение процедуры итерирования нейросети Кохонена }
end;
 
 
 
 
 
 
 
 
 
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
Var
   S:String;
begin
      SHOW_CONNECTIONS:=TRUE; {флаг разрешения отображения связей}
      Neurons:=10; { число нейронов в нейрополе }
      SpinEdit1.Value:=Neurons;
      SpinEdit2.MaxValue:=Neurons;
      SpinEdit2.Value:=5;
      R_ACTIV:=SpinEdit2.Value;
      Image2.Height:=Image1.Height;
      Image2.Width:=Image1.Width;
 
      { начальное задание коэффициента пластичности }
      ALPHA:=0.8;
      Str(ALPHA :6:4,S);
      Edit1.Text:=S;
 
      { начальное задание множителя коэффициента пластичности }
      KOEFF_ALPHA:=0.9;
      Str(KOEFF_ALPHA :6:4,S);
      Edit3.Text:=S;
 
      { начальное задание числа итераций }
      U:=2000;
      Edit2.Text:=IntToStr(U);
 
{ Значение шага модификации размера области активации и коэффициента пластичности}
      Step:=100;
      Edit4.Text:=IntToStr(Step);
 
      Button2Click(Self); { сразу нарисовать треугольник }
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     CLEAR_SCREEN; { ОЧИСТКА ЭКРАНА }
     Image1.Canvas.Pen.Color:=clBlack;
     Image2.Canvas.Pen.Color:=clBlack;
     Line(ROUND(Image1.Width/2),1,Image1.Width-2,Image1.Height-2);
     Line(Image1.Width-2,Image1.Height-2,2,Image1.Height-2);
     Line(2,Image1.Height-2,ROUND(Image1.Width/2),1);
     Image1.Canvas.Brush.Color:=clRed;
     Image2.Canvas.Brush.Color:=clRed;
     Image1.Canvas.FloodFill(ROUND(Image1.ClientWidth/2),ROUND(Image1.ClientHeight/2), clBlack, fsBorder);
     Image2.Canvas.FloodFill(ROUND(Image2.ClientWidth/2), ROUND(Image2.ClientHeight/2), clBlack, fsBorder);
end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
Const
     L=50;
     R=100;
Var
   X,Y:integer;
begin
     { КВАДРАТ }
     CLEAR_SCREEN; { ОЧИСТКА ЭКРАНА }
     X:=ROUND(Image1.Width/2);
     Y:=ROUND(Image1.Height/2);
     Image1.Canvas.Pen.Color:=clBlack;
     Image2.Canvas.Pen.Color:=clBlack;
     Image1.Canvas.Brush.Color:=clRed;
     Image2.Canvas.Brush.Color:=clRed;
     Image1.Canvas.Rectangle(X-R, Y-R, X+R, Y+R);
     Image2.Canvas.Rectangle(X-R, Y-R, X+R, Y+R);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
Const
     R=100; { величина смещения от центра для построения эллипса }
Var
   XEllipse,YEllipse:integer; {  координаты центра эллипса }
 
begin
     { КРУГ }
     CLEAR_SCREEN; { ОЧИСТКА ЭКРАНА }
     Image1.Canvas.Pen.Color:=clBlack;
     Image2.Canvas.Pen.Color:=clBlack;
 
     XEllipse:=ROUND(Image1.ClientWidth/2);
     YEllipse:=ROUND(Image1.ClientHeight/2);
 
     Image1.Canvas.Ellipse(XEllipse-R,YEllipse-R,XEllipse+R,YEllipse+R);
     Image2.Canvas.Ellipse(XEllipse-R,YEllipse-R,XEllipse+R,YEllipse+R);
 
     Image1.Canvas.Brush.Color:=clRed;
     Image2.Canvas.Brush.Color:=clRed;
 
     Image1.Canvas.FloodFill(ROUND(Image1.ClientWidth/2),ROUND(Image1.ClientHeight/2), clBlack, fsBorder);
     Image2.Canvas.FloodFill(ROUND(Image2.ClientWidth/2), ROUND(Image2.ClientHeight/2), clBlack, fsBorder);
end;
 
 
 
 
procedure TForm1.Button5Click(Sender: TObject);
Const
     R=100; { величина смещения от центра для построения эллипса }
Var
   XEllipse,YEllipse:integer; {  координаты центра эллипса }
   X,Y:integer;
begin
     { ПОЛУКРУГ }
     CLEAR_SCREEN; { ОЧИСТКА ЭКРАНА }
     Image1.Canvas.Pen.Color:=clBlack;
     Image2.Canvas.Pen.Color:=clBlack;
     XEllipse:=ROUND(Image1.ClientWidth/2);
     YEllipse:=ROUND(Image1.ClientHeight/2);
     Image1.Canvas.Ellipse(XEllipse-R,YEllipse-R,XEllipse+R,YEllipse+R);
     Image2.Canvas.Ellipse(XEllipse-R,YEllipse-R,XEllipse+R,YEllipse+R);
     Image1.Canvas.Brush.Color:=clRed;
     Image2.Canvas.Brush.Color:=clRed;
     Image1.Canvas.FloodFill(XEllipse,YEllipse, clBlack, fsBorder);
     Image2.Canvas.FloodFill(XEllipse,YEllipse, clBlack, fsBorder);
     Image1.Canvas.Pen.Color:=clNavy;
     Image2.Canvas.Pen.Color:=clNavy;
     Image1.Canvas.Brush.Color:=clNavy;
     Image2.Canvas.Brush.Color:=clNavy;
     Image1.Canvas.Rectangle(XEllipse-R, YEllipse-R, XEllipse, YEllipse+R);
     Image2.Canvas.Rectangle(XEllipse-R, YEllipse-R, XEllipse, YEllipse+R);
end;
 
procedure TForm1.Button6Click(Sender: TObject);
Const
     R=100; { величина смещения от центра для построения эллипса }
     R2=50; { внутренний эллипс }
Var
   XEllipse,YEllipse:integer; {  координаты центра эллипса }
 
begin
     { КОЛЬЦО }
     CLEAR_SCREEN; { ОЧИСТКА ЭКРАНА }
     Image1.Canvas.Pen.Color:=clBlack;
     Image2.Canvas.Pen.Color:=clBlack;
 
     XEllipse:=ROUND(Image1.ClientWidth/2);
     YEllipse:=ROUND(Image1.ClientHeight/2);
 
     Image1.Canvas.Ellipse(XEllipse-R,YEllipse-R,XEllipse+R,YEllipse+R);
     Image2.Canvas.Ellipse(XEllipse-R,YEllipse-R,XEllipse+R,YEllipse+R);
 
     Image1.Canvas.Brush.Color:=clRed;
     Image2.Canvas.Brush.Color:=clRed;
 
     Image1.Canvas.FloodFill(ROUND(Image1.ClientWidth/2),ROUND(Image1.ClientHeight/2), clBlack, fsBorder);
     Image2.Canvas.FloodFill(ROUND(Image2.ClientWidth/2), ROUND(Image2.ClientHeight/2), clBlack, fsBorder);
 
     Image1.Canvas.Ellipse(XEllipse-R2,YEllipse-R2,XEllipse+R2,YEllipse+R2);
     Image2.Canvas.Ellipse(XEllipse-R2,YEllipse-R2,XEllipse+R2,YEllipse+R2);
 
     Image1.Canvas.Brush.Color:=clNavy;
     Image2.Canvas.Brush.Color:=clNavy;
 
     Image1.Canvas.FloodFill(ROUND(Image1.ClientWidth/2),ROUND(Image1.ClientHeight/2), clBlack, fsBorder);
     Image2.Canvas.FloodFill(ROUND(Image2.ClientWidth/2), ROUND(Image2.ClientHeight/2), clBlack, fsBorder);
 
 
end;
 
 
procedure TForm1.Button7Click(Sender: TObject);
Const
     R=100; { величина смещения от центра для построения эллипса }
     R2=50;
Var
   XEllipse,YEllipse:integer; {  координаты центра эллипса }
   X,Y:integer;
begin
     { ПОЛУКОЛЬЦО }
     CLEAR_SCREEN; { ОЧИСТКА ЭКРАНА }
     Image1.Canvas.Pen.Color:=clBlack;
     Image2.Canvas.Pen.Color:=clBlack;
     XEllipse:=ROUND(Image1.ClientWidth/2);
     YEllipse:=ROUND(Image1.ClientHeight/2);
     Image1.Canvas.Ellipse(XEllipse-R,YEllipse-R,XEllipse+R,YEllipse+R);
     Image2.Canvas.Ellipse(XEllipse-R,YEllipse-R,XEllipse+R,YEllipse+R);
     Image1.Canvas.Brush.Color:=clRed;
     Image2.Canvas.Brush.Color:=clRed;
     Image1.Canvas.FloodFill(XEllipse,YEllipse, clBlack, fsBorder);
     Image2.Canvas.FloodFill(XEllipse,YEllipse, clBlack, fsBorder);
 
     Image1.Canvas.Ellipse(XEllipse-R2,YEllipse-R2,XEllipse+R2,YEllipse+R2);
     Image2.Canvas.Ellipse(XEllipse-R2,YEllipse-R2,XEllipse+R2,YEllipse+R2);
 
     Image1.Canvas.Brush.Color:=clNavy;
     Image2.Canvas.Brush.Color:=clNavy;
 
     Image1.Canvas.FloodFill(ROUND(Image1.ClientWidth/2),ROUND(Image1.ClientHeight/2), clBlack, fsBorder);
     Image2.Canvas.FloodFill(ROUND(Image2.ClientWidth/2), ROUND(Image2.ClientHeight/2), clBlack, fsBorder);
 
 
     Image1.Canvas.Pen.Color:=clNavy;
     Image2.Canvas.Pen.Color:=clNavy;
     Image1.Canvas.Rectangle(XEllipse-R, YEllipse-R, XEllipse, YEllipse+R);
     Image2.Canvas.Rectangle(XEllipse-R, YEllipse-R, XEllipse, YEllipse+R);
end;
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin  { установить число нейронов в сети }
     Neurons:=SpinEdit1.Value;
end;
 
 
procedure TForm1.Edit1Change(Sender: TObject);
var
  I, Code: Integer;
  R:Real;
begin
  { Получить данные из редактируемого поля }
  Val(Edit1.Text, R, Code);
  { Проверить на допустимое представление данных }
  if code = 0 then ALPHA:=R       { ошибки нет }
  else
    MessageDlg('Ошибка в позиции: ' + IntToStr(Code), mtWarning, [mbOk], 0);
end;
 
 
procedure TForm1.Edit2Change(Sender: TObject);
Var
   I,Code:integer;
begin
  { Получить данные из редактируемого поля }
  Val(Edit2.Text, i, Code);
  { Проверить на допустимое представление данных }
  if (code = 0)And((i>0)And(i<=MaxInt)) then U:=i       { ошибки нет }
  else
    MessageDlg('Ошибка в позиции: ' + IntToStr(Code), mtWarning, [mbOk], 0);
 
end;
 
 
procedure TForm1.Edit3Change(Sender: TObject);
var
  Code: Integer;
  R:Real;
begin
  { Получить данные из редактируемого поля }
  Val(Edit3.Text, R, Code);
  { Проверить на допустимое представление данных }
  if code = 0 then KOEFF_ALPHA:=R       { ошибки нет }
  else
    MessageDlg('Ошибка в позиции: ' + IntToStr(Code), mtWarning, [mbOk], 0);
end;
 
 
 
 
procedure TForm1.Edit4Change(Sender: TObject);
Var
   I,Code:integer;
begin
  { Получить данные из редактируемого поля }
  Val(Edit4.Text, i, Code);
  { Проверить на допустимое представление данных }
  if (code = 0)And((i>0)And(i<=MaxInt)) then Step:=i       { ошибки нет }
  else
    MessageDlg('Ошибка в позиции: ' + IntToStr(Code), mtWarning, [mbOk], 0);
 
end;
 
 
 
end.