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

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;

  TFisherMan = class(TComponent)//*Класс Рыбак
  protected
//    procedure DefineProperties(Filer: TFiler); override;
  private
    FNajivkaMen:TStringList;
    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;//Опыт
      //В рюкзаке
      property NajivkaMen: TStringList read FNajivkaMen write FNajivkaMen;//Наживки
 
procedure LoadFromFile(Component: TComponent; const FileName: string);
var
  ms: TMemoryStream;
  fs: TFileStream;
begin
  fs := TFileStream.Create(FileName, fmOpenRead);
  ms := TMemoryStream.Create;
  try
    ObjectTextToBinary(fs, ms);
    ms.position := 0;
    ms.ReadComponent(Component);
  finally
    ms.Free;
    fs.free;
  end;
end;
 
procedure SaveToFile(Component: TComponent; const FileName: string);
var
  ms: TMemoryStream;
  fs: TFileStream;
begin
  fs := TFileStream.Create(FileName, fmCreate or fmOpenWrite);
  ms := TMemoryStream.Create;
  try
    ms.WriteComponent(Component);
    ms.position := 0;
    ObjectBinaryToText(ms, fs);
  finally
    ms.Free;
    fs.free;
  end;
end;

object TFisherMan
  NajivkaMen.Strings = (
    #1063#1077#1088#1074#1100
    #1061#1083#1077#1073
    #1058#1077#1089#1090#1086)
  NameMan = #1071
  SkillMen = 100
end

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
//*************************************************************************
TFisherMan = class(TComponent)
  protected
    procedure DefineProperties(Filer: TFiler); override;
    function GetNajivkaMen(index: Integer): string;
    procedure SetNajivkaMen(index: Integer; const Value: string);
    procedure SetStrCount(Value: Integer);
    function GetStrCount: Integer;
  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;
//      property NajivkaMen: FNajivkaMen read FNajivkaMen write FNajivkaMen;
  public
    property NajivkaMen[index:Integer]:string read GetNajivkaMen write SetNajivkaMen;
    property StrCount: Integer read GetStrCount write SetStrCount;
  end;
//*************************************************************************
 
var
  Form1: TForm1;
  FisherMan:TFisherMan;
 
implementation
 
{$R *.dfm}
 
procedure TFisherMan.SetStrCount(Value: Integer);
begin
  SetLength(FNajivkaMen, Value);
end;
 
function TFisherMan.GetStrCount: Integer;
begin
  Result:=Length(FNajivkaMen);
end;
 
function TFisherMan.GetNajivkaMen(index: Integer): string;
begin
 Result:= FNajivkaMen[Index];
end;
 
procedure TFisherMan.SetNajivkaMen(index: Integer; const Value: string);
begin
  FNajivkaMen[Index]:= Value;
end;
 
procedure TFisherMan.ReadList(Reader: TReader);
var
  i,j:Integer;
begin
  j:=Reader.ReadInteger;
  SetLength(FNajivkaMen, j);
  for i := 0 to Reader.ReadInteger do
    FNajivkaMen[i]:=Reader.ReadString;
end;
 
procedure TFisherMan.WriteList(Writer: TWriter);
var
  i:Integer;
begin
  Writer.WriteInteger(GetStrCount);
  for i:=0 to Length(FNajivkaMen)-1 do
    begin
     Writer.WriteString(FNajivkaMen[i]);
    end;
end;
 
procedure TFisherMan.DefineProperties(Filer: TFiler);
begin
 inherited;
 Filer.DefineProperty('NajivkaMen', ReadList, WriteList, true);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin //Çàïîëíèòü
FisherMan.NameMan:='ÿ';
FisherMan.SkillMen:=100;
FisherMan.NajivkaMen[0]:='0';
FisherMan.NajivkaMen[1]:='10';
FisherMan.NajivkaMen[2]:='20';
ShowMessage('Çàãðóæåíî');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FisherMan:=TFisherMan.Create(nil);
  FisherMan.SetStrCount(3);
end;
 
procedure SaveToFile(RootObject: TComponent; const FileName: TFileName);
var
  FileStream: TFileStream;
  MemStream: TMemoryStream;
begin
  FileStream := TFileStream.Create(FileName, fmCreate);
  MemStream := TMemoryStream.Create;
  try
    MemStream.WriteComponent(RootObject);
    MemStream.Position := 0;
    ObjectBinaryToText(MemStream, FileStream);
  finally
    MemStream.Free;
    FileStream.Free;
  end;
end;
 
procedure LoadFromFile(RootObject: TComponent; const FileName: TFileName);
var
  FileStream: TFileStream;
  MemStream: TMemoryStream;
begin
  FileStream := TFileStream.Create(FileName, 0);
  MemStream := TMemoryStream.Create;
  try
    ObjectTextToBinary(FileStream, MemStream);
    MemStream.Position := 0;
    MemStream.ReadComponent(RootObject);
  finally
    MemStream.Free;
    FileStream.Free;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
begin //Ñîõðàíèòü
  s:=ExtractFilePath(Application.ExeName)+'ÿ.dat';
  SaveToFile(FisherMan, s);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  s:string;
begin //Çàãðóçèòü
  s:=ExtractFilePath(Application.ExeName)+'ÿ.dat';
  FisherMan:=TFisherMan.Create(nil);
  LoadFromFile(FisherMan, s);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Close;
end;
 
end.

object TFisherMan
  NameMan = #1103
  SkillMen = 100
  NajivkaMen = 3
  010 = '20'
end

procedure TFisherMan.ReadList(Reader: TReader);
var
  i,j:Integer;
begin
  j:=Reader.ReadInteger; // в голове Ридера - интеджер-значение, соответствующее кол-ву строковых значений, идущих в Ридере СЛЕДОМ ЖЕ
  SetLength(FNajivkaMen, j);
  for i := 0 to Reader.ReadInteger do // а это что за шняга ? в голове Ридера сейчас строка, а ты опять требуешь от него Интеджер ..
    FNajivkaMen[i]:=Reader.ReadString; // вот она !!!
end;

procedure TFisherMan.WriteList(Writer: TWriter);
var
  i:Integer;
begin
  Writer.WriteInteger(GetStrCount); // вот ты пишешь в поток Integer
  for i:=0 to Length(FNajivkaMen)-1 do // и следом FNajivkaMen раз пишешь в поток
    begin
     Writer.WriteString(FNajivkaMen[i]); // тот самый String
    end;
end;

procedure TFisherMan.ReadList(Reader: TReader);
var
  i,j:Integer;
begin
  j:=Reader.ReadInteger;
  SetLength(FNajivkaMen, j);
  for i := 0 to j-1 do
    FNajivkaMen[i]:=Reader.ReadString;
end;
 
procedure TFisherMan.WriteList(Writer: TWriter);
var
  i:Integer;
begin
  Writer.WriteInteger(GetStrCount);
  for i:=0 to Length(FNajivkaMen)-1 do
    begin
      Writer.WriteString(FNajivkaMen[i]);
    end;
end;
 
procedure SaveToFile(RootObject: TComponent; const FileName: TFileName);
var
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(FileName, fmCreate);
  try
     FileStream.WriteComponent(TFisherMan(FisherMan));
  finally
    FileStream.Free;
  end;
end;
 
procedure LoadFromFile(RootObject: TComponent; const FileName: TFileName);
var
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead);
  try
    FileStream.ReadComponent(TFisherMan(FisherMan));
  finally
    FileStream.Free;
  end;
end;

TPF0
TFisherMan NameMan
   OSkillMend
NajivkaMen
01020

initialization
  RegisterClass(TFisherMan);
end.

procedure TFisherMan.DefineProperties(Filer: TFiler);
begin
 inherited;
 Filer.DefineProperty('NajivkaMen', ReadListN, WriteListN, true);
 Filer.DefineProperty('Udohka', ReadListU, WriteListU, true);
end;