Speichern der gesamten TLISTVIEW-Einträge...

[thomasdrewermann]

HI,
kennt irgendjemand eine Routine zum speichern des Inhalts eines gesamten TLISTVIEW?

MFG Thomas

[sakura]

Zwei Routines zum Laden und Speichern. Ungetestet, sollte aber funktionieren.

Delphi-Quellcode:

procedure LoadListView(LV: TListView; aFile: string);
var
  I: Integer;
  Item: TListItem;
begin
  with TStringList.Create do
  try
    LoadFromFile(aFile);
    I := 0;
    while I < Count do
    begin
      Item := LV.Items.Add:
      Item.Caption := Strings[I];
      Inc(I);
      if I = Count then
        Break;
      Item.SubItems.CommaText := Strings[I];
      Inc(I);
    end;
  finally
    Free;
  end;
end;

procedure SaveListView(LV: TListView; aFile: string);
var
  I: Integer;
begin
  with TStringList.Create do
  try
    for I := 0 to Pred(LV.Items.Count) do
    begin
      Add(LV.Items[I].Caption);
      Add(LV.Items[I].SubItems.CommaText);
    end;
    SaveToFile(aFile);
  finally
    Free;
  end;
end;

[Luckie]

Oder so:

Delphi-Quellcode:

function ListViewSaveToFile(ListView: TListView; AFileName: string): Boolean;
var
  fs: TFileStream;
begin
  fs := TFileStream.Create(AFileName, FmCreate or fmShareDenyWrite);
  try
    fs.WriteComponentRes(ListView.Name, ListView);
  finally
    fs.Free;
  end
end;

function ListViewLoadFromFile(ListView: TListView; AFileName: string): Boolean;
var
  fs: TFileStream;
begin
  fs := TFileStream.Create(AFileName, FMOpenRead or fmShareDenyNone);
  try
    fs.ReadComponentRes(ListView);
  finally
    fs.Free;
  end
end;

[thomasdrewermann]

Hi,
danke erstmal für die Lösung. Ich hab sie gerade getestet.

Da kommt ein Fehler:
"Kann die Datei nicht öffnen"...bla,bla ect.

Der Fehler wird bei der TFileStrem.Create(...); procedure ausgelöst.

MFG
Thomas

[Luckie]

Stimmt der Dateipfad? Bei mir hat es bis jetzt immer gut geklappt.

[thomasdrewermann]

Ich hab beim oncreate ereignis einfach

Code:

ListviewSaveTofile('C:\test.dat');

geschrieben.

[thomasdrewermann]

Ich habe mein Problem gerade gelöst, bzw. ich bin auf dem besten Weg.
Ich denke zu dem Zeitpunkt wenn das OnCreate Ereignis aufgerufen wird wurde der Listview noch garnicht erstellt.

Ich habs mit Buttons gelöst.

MFG
Thomas

[Daniel B]

Machs doch im OnSohw, da ist die LV schon Created.

Grüsse, Daniel :xmas:

[thomasdrewermann]

Ich habs mir gerade überlegt.
Ich könnte auch nen Timer nehmen...

[Christian Seehase]

Moin Thomas,

Zitat:

Ich denke zu dem Zeitpunkt wenn das OnCreate Ereignis aufgerufen wird wurde der Listview noch garnicht erstellt.

Doch, sonst könntest Du im OnCreate des Formulares keine Einstellungen am Listview vornehmen.
Wenn der ListView dem Formular untergeordnet ist, dann existiert er schon. Es ist, im Prinzip, nichts weiter als ein Feld in der Klasse des Formulares.

Das OnCreate wird aufgerufen, nachdem der Konstruktor der Klasse (z.B. TForm1) abgearbeitet wurde.