将对象的 TList 保存在文本文件中

Question

我有以下类：

type
  TSong = class(TObject)
  private
    FArtist: String;
    FTitle: String;
    procedure SetArtist(Artist: String);
    procedure SetTitle(Title: String);
  public
    property Artist: String read FArtist Write SetArtist;
    property Title: String read FTitle Write SetTitle;
    constructor Create(Artist, Title: String);
  end;
type
  TPlaylist = class(TList)
    private
      procedure ShowInListBox(Box: Pointer);
    public
      { Public-Deklarationen }
    end;

在运行时，我创建这些类的实例：

Playlist := TPlaylist.Create;
Playlist.Add(TSong.Create('Artist 1', 'Title 1'));
Playlist.Add(TSong.Create('Artist 2', 'Title 2'));
Playlist.Add(TSong.Create('Artist 3', 'Title 3'));
Playlist.Add(TSong.Create('Artist 4', 'Title 4'));

当程序关闭时，我想将这些数据保存到文本文件中。我该怎么做？

最好的方法可能是创建一个属于 TPlaylist 类的过程，对吗？

procedure SaveToTxtFile(fName: String);

这样的函数到底应该做什么？当程序再次启动时，我希望能够再次构建播放列表。

如果数据能保存在像这样的文本文件中那就太好了：

Artist 1///Title 1
Artist 2///Title 2

Answer 1

你走在正确的轨道上。您尝试做的事情称为序列化，将对象转换为可流式传输的形式，例如文件。

您需要开发一种格式。确切的格式是什么并不重要，只要它一致并保留重建对象所需的所有数据即可。你说你想要一个文本文件，所以在这种情况下你可以通过使用内置文件 IO 的 TStringList 采取一些捷径。

尝试这样的事情：

procedure TSong.Serialize(serializer: TStringList);
begin
  serializer.Add(format('%s///%s: %s', [Artist, Title, Filename])); //add a filename member! You need one!
end;

procedure TPlaylist.Serialize(const filename: string);
var
  serializer: TStringList;
  i: integer;
begin
  serializer := TStringList.Create;
  try
    for i := 0 to Count - 1 do
      TSong(self[i]).Serialize(serializer);
    serializer.SaveToFile(filename);
  finally
    serializer.Free;
  end;
end;

你还想实现相反的反序列化。应该不会太难。