Einzelnen Beitrag anzeigen

Benutzerbild von Sprint
Sprint

Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
 
Delphi 5 Professional
 
#8

Re: Einträge aus listview speichern und öffnen

  Alt 11. Nov 2004, 21:04
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;
Ciao, Sprint.

"I don't know what I am doing, but I am sure I am having fun!"
  Mit Zitat antworten Zitat