ListView einträge in StringList kopieren?

[s14]

So auf die Schnelle

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
const
  delim = #9;
var
  i, j: Integer;
  li:  TListItem;
  s: String;
begin
 // erstmal Einträge erstellen
  for i := 1 to 5 do
  begin
    li := Listview1.Items.Add;
    li.Caption := 'Index' + IntToStr(i);
    li.SubItems.Add('Text' + IntToStr(i));
  end;
 // Einträge in StringList einlesen
  with TStringList.Create do begin
    for i := 0 to Listview1.Items.Count-1 do
    begin
      s := Listview1.Items[i].Caption + delim;
      for j := 0 to Listview1.Items[i].SubItems.Count-1 do
        s := s + Listview1.Items[i].SubItems[j] + delim;
      Add(s);  
    end;
    SaveToFile(ChangeFileExt(ParamStr(0), '.txt'));
    Free;
  end;
end;

Nicht perfekt, aber als Denkanstoß...

Gruß
s14