Искусственные нейронные сети. Каширина И.Л. - 46 стр.

                                        46
Сохранение весовой матрицы в файл:
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;

Инициализация весовой матрицы случайными числами из промежутка [-0.3,0.3]:
procedure TMainForm.BtnInitRandomClick(Sender: TObject);
var i,j:integer;
begin
  for i:=0 to n-1 do
    for j:=0 to n-1 do
      weights[i,j]:=-0.3+0.6*Random;