Сериализация В Delphi

Сериализация - это процесс превращения объекта в последовательность байтов, которую можно сохранить и использовать позднее для восстановления.

В Delphi для сериализации объектов можно использовать классы TBinaryWriter и TBinaryReader. Для того чтобы сериализовать объект, сначала необходимо создать экземпляр класса TBinaryWriter, указав в конструкторе объект класса TMemoryStream для записи данных:

  var    ms: TMemoryStream;    bw: TBinaryWriter;    obj: TMyClass;begin    ms := TMemoryStream.Create;    try      bw := TBinaryWriter.Create(ms);      try        bw.Write(obj.Property1);         bw.Write(obj.Property2);        // ...      finally        bw.Free;      end;            ms.Position := 0;      ms.SaveToFile('myfile.bin');          finally      ms.Free;    end;end;

Для чтения сохраненного объекта необходимо создать экземпляр класса TBinaryReader, указав в конструкторе объект класса TMemoryStream для чтения данных:

  var    ms: TMemoryStream;    br: TBinaryReader;    obj: TMyClass;begin    ms := TMemoryStream.Create;    try            ms.LoadFromFile('myfile.bin');      ms.Position := 0;            br := TBinaryReader.Create(ms);      try        obj.Property1 := br.ReadString;        obj.Property2 := br.ReadInteger;        // ...      finally        br.Free;      end;                    finally      ms.Free;    end;end;