Einzelnen Beitrag anzeigen

s14

Registriert seit: 15. Mai 2003
Ort: München
251 Beiträge
 
Delphi 7 Architect
 
#6

Re: ListView einträge in StringList kopieren?

  Alt 27. Okt 2003, 15:15
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
  Mit Zitat antworten Zitat