Нейросетевые технологии. Каширина И.Л. - 60 стр.

var
  MainForm: TMainForm;
  imgmatrix:bmatrix;// входная матрица
  weights:rmatrix;
  speed:real=0.7; // коэфф. скорости обучения

Сохранение весовой матрицы в файл:
Function TMainform.SaveWeights(filename:string):boolean;
var
  f:textfile;
  i,j:integer;
begin
try
  AssignFile(f,filename);
  Rewrite(f);
  for i:=0 to n-1 do for j:=0 to n-1 do Writeln(f,weights[i,j]);
  CloseFile(f);
  result:=true;
except
  result:=false;
end;
end;

procedure TMainForm.BtnSaveWeightsClick(Sender: TObject);
begin
  if (savedialog.Execute) then
  begin
    if SaveWeights(savedialog.FileName) then SBstatus.SimpleText:='Веса
сохранены'
    else SBstatus.SimpleText:='Веса не сохранены'
  end;
end;

Загрузка сохраненной весовой матрицы из файла:
Function TMainform.LoadWeights(filename:string):boolean;
var
  f:textfile;
  i,j:integer;
begin
try
  AssignFile(f,filename);
  Reset(f);
  for i:=0 to n-1 do for j:=0 to n-1 do Readln(f,weights[i,j]);
  CloseFile(f);
  result:=true;
except
  result:=false;
end;
end;
procedure TMainForm.BtnLoadWeightsClick(Sender: TObject);
begin
  If (opendialog.Execute) then
  begin
    if Loadweights(opendialog.FileName) then SBstatus.SimpleText:='Âåñà
çàãðóæåíû.'
    else SBstatus.SimpleText:='Îøèáêà ïðè çàãðóçêå âåñîâ. Ïðîâåðüòå ôàéë.'
  end;
end;
                                    60