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