1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:

unit ListViewEdit;

interface
uses
   SysUtils, Classes, ComCtrls;

  procedure ListViewSaveToFile(Filename : String; ListView : TListView);
  procedure ListViewLoadFromFile(Filename : String; ListView : TListView);

implementation


{
Vers: 0.0.0.1

Wie kann ich ein ListView speichern?

Mit diesen 2 Methoden kann ein Listview in eine Datei gespeichert, und aus dieser wieder geladen Werden.
Dabei ist die Anzahl der Spalten nicht relevant.
Es werden alle Zeilen (ohne Überschriften aber mit dem IconIndex) gespeichert und geladen.

In den Inline-Kommentaren beziehe ich mich auf eine ListView ansicht als Report.

(ChriDDel)

ps: Das speichern der Überschriften ist auch nicht das Problem, kommt evtl. noch nach.
    Dieser Punkt war für mich aber nicht interessant.

}



procedure ListViewSaveToFile(Filename : String; ListView : TListView);
{Copyright Christoph D. 2005}
var
  TextFile: TStringList;
  i: integer;
begin
try
  TextFile:= TStringList.Create;

    for i := 0 to (ListView.Items.Count - 1) do // Geht alle Zeilen durch (ohne Überschriften)
    begin
      ListView.Items.Item[i].SubItems.Delimiter:='#'; //Trennzeichen zum Speichern. Sollte eines sein, das nicht im Text vorkommt.
      TextFile.Add(  IntToStr(ListView.Items.Item[i].ImageIndex)  //Index des Images für diese Zeile
            +'#'            //Trennzeichen (siehe oben)
            +ListView.Items.Item[i].Caption      //Erste Spalte
            +'#'            //Trennzeichen (siehe oben)
            +ListView.Items.Item[i].SubItems.DelimitedText);//Alle weitere Spalten
    end;

  TextFile.SaveToFile(Filename); //Speichern des ListViews in eine Datei
finally
  TextFile.Free;
end;
end;

procedure ListViewLoadFromFile(Filename : String; ListView : TListView);
{Copyright Christoph D. 2005}
var
   TextFile,TextFile2 : TStringList;
   NewListItem: TListItem;
   i,x: integer;
begin
try
  ListView.Clear;
  TextFile:= TStringList.Create;
  TextFile2:= TStringList.Create;

  TextFile.LoadFromFile(Filename);  //ListView aus der Datei laden.

  TextFile2.Delimiter:='#';    //Trennzeichen, wie beim Speichern angegeben

  for i:=0 to TextFile.Count-1 do   // Geht alle Zeilen durch (ohne Überschriften)
  begin
    TextFile2.DelimitedText:=TextFile.Strings[i];  //Erste Zeile aus der gespeicherten Datei in die Richtigen Spalten schreiben

    NewListItem := ListView.Items.Add;        //Neues Item anlegen  
    NewListItem.ImageIndex:=StrToInt(TextFile2.Strings[0]);  //Index des Images für diese Zeile
    NewListItem.Caption :=TextFile2.Strings[1];      //Erste Spalte
    for x:=2 to TextFile2.Count-1 do        //Geht die restlichen Spalten durch
    begin
      NewListItem.SubItems.Add(TextFile2.Strings[x]);    //Spalten mit dem text aus der Datei füllen
    end;

  end;
finally
  TextFile.Free;
  TextFile2.Free;
end;
end;

end.					

1:
2:
3:
4:
5:
6:
7:

var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('C:\MeineDatei.dat', fmCreate);
  Stream.WriteComponentRes('', ListView1);
  Stream.Free;
end;					

1:

  TextFile2.StrictDelimiter := True;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button2Click(Sender: TObject);
var
   i:integer;
   S:TStringList;
 begin
   S := TStringList.Create;
   for i := 0 to ListView1.Items.Count-1 do
   S.Add('"'+ ListView1.Items[i].Caption +'",'+ ListView1.Items[i].SubItems.CommaText);
   S.SaveToFile('stunden.txt');
   S.Free;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
   i:integer;
   S:TStringList;
begin
   OD.Execute; // OD = OpenDialog
   S := TStringList.Create;
   for i := 0 to ListView1.Items.Count-1 do
   S.Add('"'+ ListView1.Items[i].Caption +'",'+ ListView1.Items[i].SubItems.CommaText);
   S.LoadFromFile(OD.FileName);
   S.Free;