Einträge aus listview speichern und öffnen

[Sprint]

Zitat von Superior:

Bei Klick auf einen Button möchte ich dass die Einträge gespeichert werden und bei Klick auf einen anderen Button dass die Einträge wieder abgerufen werden.

Nachdem hier ja einige mehrere ultralange Möglichkeiten geschrieben habe, möchte ich dir nochmal 'ne kurze zeigen.

Delphi-Quellcode:

  procedure SaveListView(ListView: TListView; const FileName: String);
  var
    FS: TFileStream;
  begin

    FS := TFileStream.Create(FileName, fmCreate);
    try
      FS.WriteComponent(ListView);
    finally
      FS.Free;
    end;

  end;

Delphi-Quellcode:

  procedure LoadListView(ListView: TListView; const FileName: String);
  var
    FS: TFileStream;
  begin

    FS := TFileStream.Create(FileName, fmOpenRead);
    try
      FS.ReadComponent(ListView);
    finally
      FS.Free;
    end;

  end;