Сохранить класс в файл

TFisherMan = class// Класс Рыбак
    NameMan:string;//Имя
    SkillMen:Integer;//Опыт
      //В рюкзаке
      NajivkaMen:array of string;//Наживки
  end;
type
  MyFile = record
    FMyFile:TFisherMan;
  end;
//*************************************************************************
var
  FisherMan:TFisherMan;
  ManFile:file of MyFile; //файл типа записи Man
  ManDann: MyFile; {переменная типа записи ManDann для работы с файлом}
 
procedure SaveFisherMan();
var
  DirSave:string;
begin//Сохранить рыбака в Файл
  //DirSave:=Dir+'Save\'+FisherMan.NameMan+'.DAN';
  DirSave:=Dir+'Save\'+klyv.Combobox1.text+'.DAT';
  ManDann.FMyFile:=FisherMan;
  AssignFile(ManFile, DirSave);//связываем файловую переменную с файлом
  rewrite(ManFile); //открываем файл для записи
  write(ManFile, ManDann); //записать в файл созданный элемент Man
  ManDann.FMyFile:=nil;
  close(ManFile); //закрываем файл
end;
procedure LoadFisherMan();
var
  DirLoad:string;
  nN, nU:Integer;
begin //загрузить рыбака из файла
  DirLoad:=Dir+'Save\'+Klyv.ComboBox1.Text+'.DAT';
  //очистить рыбака
  FisherMan:=TFisherMan.Create;
  AssignFile(ManFile, DirLoad);//связываем файловую переменную с файлом
  Reset(ManFile);//открываем файл для чтения
  read(ManFile, ManDann);//считываем из файла очередной элемент в переменную ManDann
  FisherMan:=ManDann.FMyFile;
  close(ManFile); //закрываем файл
end;

TMyClass = class(TPersistent)
  private
    Ar: Array of string;
  end;
 
  FNajivkaMen of  TMyClass;
 
  TFisherMan = class(TComponent)//*Класс Рыбак
  published
    property NajivkaMen:TMyClass  read FNajivkaMen write FNajivkaMen;

  TFisherMan = class(TComponent)//*Класс Рыбак
  protected
    procedure DefineProperties(Filer: TFiler); override;
  private
    FNajivkaMen:array of string;
    FNameMan:string;
    FSkillMen:Integer;
    procedure ReadList(Reader: TReader);
    procedure WriteList(Writer: TWriter);
  published
    property NameMan:string  read FNameMan write FNameMan;//Имя
    property SkillMen:Integer read FSkillMen write FSkillMen;//Опыт
 
procedure TFisherMan.ReadList(Reader: TReader);
var
  i:Integer;
begin
  Reader.ReadValue;
  while not Reader.EndOfList do
  begin
    Reader.ReadListBegin;
    while not Reader.EndOfList do
      begin
        FNajivkaMen[i]:=Reader.ReadString;
      end;
    Reader.ReadListEnd;
  end;
end;
 
procedure TFisherMan.WriteList(Writer: TWriter);
var
  i:Integer;
begin
  Writer.WriteListBegin;
  for i:=0 to Length(FNajivkaMen)-1 do
    begin
     Writer.WriteString(FNajivkaMen[i]);
    end;
  Writer.WriteListEnd;
end;
 
procedure TFisherMan.DefineProperties(Filer: TFiler);
begin
 inherited;
 Filer.DefineProperty('NajivkaMen', ReadList, WriteList, true);
end;

uses
 xsuperObject;

TFisherMan = class
  protected
  private
    FNajivkaMen:array of string;
    FNameMan:string;
    FSkillMen:Integer;
  published
    property NameMan:string  read FNameMan write FNameMan;//Имя
    property SkillMen:Integer read FSkillMen write FSkillMen;
end;

var 
  fm1,fm2:TFisherMan;

begin
  // сохранить fm1 - некий уже существующий объект
  ss:=TStringStream.Create(fm1.asJson);
  ss.SaveToFile('111.dat');
 
  // обратное действие - создать объект fm2 из JSON строки
  ss.loadFromFile('111.dat');
  fm2 := TFisherMan.fromJSON(ss.dataString);
  ss.free;
end;

procedure TFisherMan.ReadList(Reader: TReader);
var
  i:Integer;
begin
  i:=Reader.ReadInteger;
  SetLength(FNajivkaMen, i);
  if i>0 then
  begin
    Reader.ReadListBegin;
    for i := 0 to Reader.ReadInteger do
      FNajivkaMen[i]:=Reader.ReadString;
 
    Reader.ReadListEnd;
  end;
end;
 
procedure TFisherMan.WriteList(Writer: TWriter);
var
  i:Integer;
begin
  Writer.WriteListBegin;
  Writer.WriteInteger:=Length(FNajivkaMen)-1;
  for i:=0 to Length(FNajivkaMen)-1 do
    begin
     Writer.WriteString(FNajivkaMen[i]);
    end;
  Writer.WriteListEnd;
end;

procedure TFisherMan.ReadList(Reader: TReader);
var
  i:Integer;
begin
  i:=Reader.ReadInteger; // здесь ты читаешь из потока длину массива
  SetLength(FNajivkaMen, i); // здесь ты устанвливаешь длитну массива 
  if i>0 then
  begin
// следом за длиной массива в потоке следуют собственно данные каждого из его элементов
 
    Reader.ReadListBegin; // это нафига ?
    for i := 0 to Reader.ReadInteger do // это что за ? Ты только что прочитал длину массива, зачем ты пытаешься еще раз ее читать, если ее уже в потоке нет ?
      FNajivkaMen[i]:=Reader.ReadString; // здесь ты читаешь данные i-го элемента массива
 
    Reader.ReadListEnd; // это нафига ?
  end;
end;
 
procedure TFisherMan.WriteList(Writer: TWriter);
var
  i:Integer;
begin
  Writer.WriteListBegin; // это нафига ?
  Writer.WriteInteger:=Length(FNajivkaMen)-1; // в поток нужно записать длину массива, почему минус единица-то ? 
  for i:=0 to Length(FNajivkaMen)-1 do
    begin
     Writer.WriteString(FNajivkaMen[i]);
    end;
  Writer.WriteListEnd;// а это  ?
end;

published
    property NajivkaMen[index:Integer]:string read FNajivkaMen write FNajivkaMen

procedure TFisherMan.ReadList(Reader: TReader);
var
  i:Integer;
begin
  i:=Reader.ReadInteger;
  SetLength(FNajivkaMen, i);
  if i>0 then
  begin
    for i := 0 to Reader.ReadInteger do
      FNajivkaMen[i]:=Reader.ReadString[i];
  end;
end;
 
 
procedure TFisherMan.WriteList(Writer: TWriter);
var
  i:Integer;
begin
  Writer.WriteInteger:=Length(FNajivkaMen);
  for i:=0 to Length(FNajivkaMen)-1 do
    begin
     Writer.WriteString(FNajivkaMen[i]);
    end;
end;

    function GetNajivkaMen(index: Integer): string;
    procedure SetNajivkaMen(index: Integer; const Value: string);
  published
    property NajivkaMen[index:Integer]:string read GetNajivkaMen write SetNajivkaMen;
 
function TFisherMan.GetNajivkaMen(index: Integer): string;
begin
 Result:= FNajivkaMen[Index];
end;
 
procedure TFisherMan.SetNajivkaMen(index: Integer; const Value: string);
begin
  FNajivkaMen[Index]:= Value;
end;

Filer.DefineProperty('NajivkaMen', ReadList, WriteList, true);

fm := TForm.FromJSON(ss.DataString);

fm := TForm1.FromJSON(ss.DataString);