Einträge aus listview speichern und öffnen

[SirThornberry]

Sowas gibts nicht.
du musst beim speichern einfach einen Delimiter zwischen die Columns machen (einen der nirgends vorkommt)

Delphi-Quellcode:

//speichern
procedure TForm1.BtnSaveClick(Sender: TObject);
var LCount1, LCount2: Integer;
    LListe: TStringlist;
    LStr: String;
begin
  LListe := TStringlist.Create;
  for LCount1 := 0 to ListView1.Items.Count - 1 do
  begin
    LStr := ListView1.Items.Item[LCount1].Caption;
    for LCount2 := 0 to ListView1.Items.Item[LCount1].SubItems.Count - 1 do
      LStr := LStr + '|' + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2];
    LListe.Add(LStr);
  end;
  LListe.SaveToFile('YourFilename');
  LListe.Free;
end;

//laden
procedure TForm1.BtnLoadClick(Sender: TObject);
var LListe1, LListe2: TStringlist;
    LCount1, LCount2: Integer;
    LItem: TListItem;
begin
  LListe1 := TStringList.Create;
  LListe2 := TStringList.Create;
  LListe2.Delimiter := '|';
  LListe1.LoadFromFile('YourFilename');
  ListView1.Clear;
  for LCount1 := 0 to LListe1.Count - 1 do
  begin
    LItem := ListView1.Items.Add;
    LListe2.DelimitedText := LListe1.Strings[LCount1];
    for LCount2 := 0 to LListe2.Count - 1 do
    begin
      if LCount2 = 0 then
        LItem.Caption := LListe2.Strings[LCount2]
      else
        LItem.SubItems.Add(LListe2.Strings[LCount2]);
    end;
  end;
  LListe2.Free;
  LListe1.Free;
end;