clear_stringgrid(Form1.s2);
clear_stringgrid(Form1.s3);
clear_stringgrid(Form1.s4);
for i:=0 to str-1 do
for j:=0 to stol-1 do
begin
{Запис нового зображення в нейрони}
if mask_elem[0,i*stol+j]=1 then Form1.s1.Cells[j,i]:=yes;
if mask_elem[1,i*stol+j]=1 then Form1.s2.Cells[j,i]:=yes;
if mask_elem[2,i*stol+j]=1 then Form1.s3.Cells[j,i]:=yes;
if mask_elem[3,i*stol+j]=1 then Form1.s4.Cells[j,i]:=yes;
end;
end;
{Процедура завантаження стану нейронної мережі із файлу "symbol.rou"}
procedure TForm1.BitBtn4Click(Sender: TObject);
var
W1 :W_type;
begin
AssignFile(f, 'symbol.rou');
FileMode := 0; //Режим читання
{$I-}
Reset(f); //Відкриття файлу для читання
{$I+}
if IOResult = 0 then //Файл знайдено
begin
MessageDlg('Data from data file symbol.rou has been just loaded',
mtInformation, [mbOk], 0);
read(f,w); //Читання стану нейронної мережі
read(f,W1); //Читання зображень навчальних символів
re_mask_el(W1); //Активація нейронів, згідно із
//зображенням навчальних символів
CloseFile(f);
end
else //Файл не знайдено
begin
MessageDlg('File access error: Data File symbol.rou is epcent',
mtWarning, [mbOk], 0);
Memo1.Lines.Add('Data File symbol.rou is epcent');
end;
Form1.BitBtn2.Enabled:=true; //Кнопка "Find" активна
end;
{Процедура очищення поля нейрона}
procedure clear_stringgrid (Sender:Tobject);
var
i,j :byte;
begin
for i:=0 to (sender as TStringGrid).ColCount-1 do
for j:=0 to (sender as TStringGrid).RowCount-1 do
(sender as TStringGrid).Cells[i,j]:=no;
end;
{Очищення нейрону 1}
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
clear_stringgrid (s1);
end;
{Очищення нейрону 2}
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
clear_stringgrid (s2);
end;
{Очищення нейрону 3}
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
clear_stringgrid (s3);
end;
{Очищення нейрону 4}
procedure TForm1.BitBtn15Click(Sender: TObject);
begin
clear_stringgrid (s4);
end;
{Очищення поля символу, що розпізнається}
procedure TForm1.BitBtn18Click(Sender: TObject);
begin
clear_stringgrid (s5);
end;
end.