Сохранение объекта в файл

[garybaldi]

Здравсвуйте. Создал программу, реализующую создание и обучени нейронной сети. И возникла необходимость сохранять обученную сеть в файл с возможностью последующей загрузки. Каждый нейрон - объект класса TNeron, наследнике на TComponent. Если надо, приведу описание.
Вся сеть представлена массивом типа TNA: array of array of TNeron. То есть у меня есть массив NN[i,j] из объектов TNeron.
Нашёл, как записывать объекты через потоки. Сделал следующее:

  TNeroWeb = class(TComponent) // Дополнительный объект, который будет содержать информацию о всех объейктах TNeron
    private

    public
      NW: TNA;
      constructor Create; overload;
    published
      Property PNW: TNA read NW write NW;
    end;

procedure TForm1.Button3Click(Sender: TObject);
var Path: string;
    TempN: TNeroWeb; // Временная компонента
begin
    if SaveDialog.Execute then
    begin
      Path:=SaveDialog.FileName;
      TempN:=TNeroWeb.Create;
      TempN.NW:=NN;
      SaveNeuroWeb(Path, TempN);
    end;
end;

Procedure SaveNeuroWeb(P: string; NW: TNeroWeb);
 var
  S: TFileStream;
  M: TMemoryStream;
 begin
     S := TFileStream.Create(P, fmOpenWrite or fmCreate);
     M := TMemoryStream.Create;
     try
        M.WriteComponent(NW);
        M.Position:=0;
        ObjectBinaryToText(M, S);
     finally
     S.Free;
     M.Free
     end;
 end;

Но на выходе я получаю текстовый файл такого вида:
object TNeroWeb
end

Где я допустил ошибку? Нужно, чтобы в файле содержался вся информация обо всех элементах TNeron

[evg_m]

M.WriteComponent(NW);

о каких внутренних объектах и методах TNeronweb может знать функция с таким прототипом
TMemoryStream.WriteComponent(Instan ce: TComponent)

только о тех что были объявлены в TComponent
для записи могут (и используются) виртуальные методы TComponent

чтобы узнать что и как F1 + SeeAlso

[Stilet]

А может не стоит таким образом писать компонент?
Может стоит в нем описать отдельный метод, и в нем код сохранения каждого поля?

[garybaldi]

По всему интернету разбросан код сохранения объектов на примере коллекций, и там всё теоретически работает.. А у меня нет(

[Stilet]

и там всё теоретически работает

Вот именно что теоретически...