Listview speichern und laden

[LordGinn]

Hallo.

Ich möchte 12 Listviewen speichern und laden.
Wie kann ich das schaffen?
Die einfache Variante mit Savedialoge.execute funktioniert nicht und PosEx kennt mein Lazarus v.1.2.4 nicht.
Ich habe auch versucht aus anderen Forenbeiträgen schlau zu werden, aber leider erfolglos.

Crosspost http://www.entwickler-ecke.de/viewto...&postorder=asc

[Helmi]

vielleicht funktioniert das hier:

http://www.swissdelphicenter.ch/de/showcode.php?id=729

[Sir Rufo]

• Welche einfache Variante funktioniert denn nur mit TSaveDialog.Execute ?
• Und willst du wirklich die ListViews abspeichern, oder eventuell die Daten?
• Die ListView zeigt ja nur Text an und somit eine interpretierte Version der Daten oder sollen doch die Daten selber gespeichert werden?
• In welchem Format möchtest du denn speichern? Soll das ein human readable sein (XML, JSON, ...) oder ...

Und wenn du das hier umgesetzt hättest, dann wäre es dir jetzt schnurzpiepe ob es sich um ListViews, ComboBoxen, Memos, TreeViews, Edits, etc. handeln würde. Aber da nicht, fragst du heute nach ListView speichern, morgen nach TreeView speichern usw.

Du kannst ruhig fragen, aber du würdest dir dein Programmiererleben erleichtern, wenn du Daten, Logik und Anzeige trennst.

[LordGinn]

Das Trennen von Daten, Logik und Anzeige finde ich richtig, doch bin ich nicht durch deinen Code gestiegen.
Vieles davon habe ich nachgelesen, doch war danach auch nicht schlauer und wusste auch nicht wie ich deinen Code meinem Programm anpasse.

Das hört sich sehr stark nach Sarkasmus an, ob ich die Listview oder die Daten speichern möchte.
Interpretierte Daten? Das versteh ich leider nicht.

Das gespeicherte Format ist mir egal. Für die späteren Anwender wäre ein menschliches lesbares Format sinnvoll.

Außerdem möchte ich alle 12 Listviewen oder Daten in einer Datei speichern.

[Sir Rufo]

Es ist definitiv kein Sarkasmus (sonst hättest du den gesehen, ich bin da sehr pingelig).

Da du nicht verraten hast, was denn da wirklich in den ListVies drin steht, muss ich irgendwie alles annehmen. So z.B.:

Name	Alter
Peter Lustig	24

Diese Interpretation erfolgt aus den Daten

Name	Vorname	Geburtsdatum
Lustig	Peter	17.03.1990

Du hast jetzt im Prinzip 3 Möglichkeiten die ListView zu speichern:

• Als Bild (Screenshot der ListView)
• Die angezeigten (interpretierten) Werte in der ListeView
• Die zugrundeliegenden Daten

Überlege dir, womit du am meisten anfangen könntest. Alleine das Datum sagt nichts aus, aber im Zusammenhang mit der Information Geburtstag (Kontext) bekommt es eine aussagekräftige Bedeutung.

Darüber hast du dir eben keine Gedanken gemacht. Wenn ich also darauf hinweise, wie kommst du da auf Sarkasmus?

[DeddyH]

, schön ausgedrückt.

[hathor]

Ich weiss nicht, was in FREEPASCAL vorhanden ist (ComCtrls, Types, StrUtils) -
in DELPHI XE2 funktioniert es so:

Delphi-Quellcode:

uses ..., Vcl.ComCtrls, System.Types, System.StrUtils;

procedure ListViewSaveToFile(ListView: TListView; const FileName: string);

  procedure AddTextToLine(var Line: string; const Text: string);
  begin
    Line := Line + Text + #9;
  end;

  procedure MoveCompletedLineToList(const Strings: TStringList; var Line: string);
  begin
    Strings.Add(System.Copy(Line, 1, Length(Line)-1)); //remove trailing tab
    Line := '';
  end;

var
  Strings: TStringList;
  LatestLine: string;
  i, j: Integer;

begin
  LatestLine := '';

  Strings := TStringList.Create;
  try
    for i := 0 to ListView.Items.Count-1 do begin
      AddTextToLine(LatestLine, ListView.Items[i].Caption);
      for j := 0 to ListView.Items[i].SubItems.Count-1 do begin
        AddTextToLine(LatestLine, ListView.Items[i].SubItems[j]);
      end;
      MoveCompletedLineToList(Strings, LatestLine);
    end;
    Strings.SaveToFile(FileName, TEncoding.UTF8);
  finally
    Strings.Free;
  end;
end;

procedure ListViewLoadFromFile(ListView: TListView; const FileName: string);
var
  Strings: TStringList;
  i, j: Integer;
  Fields: TStringDynArray;
  Item: TListItem;
begin
  Strings := TStringList.Create;
  try
    Strings.LoadFromFile(FileName);
    ListView.Clear;
    for i := 0 to Strings.Count-1 do begin
      Fields := SplitString(Strings[i], #9);
      Item := ListView.Items.Add;
      Item.Caption := Fields[0];
      for j := 1 to high(Fields) do begin
        Item.SubItems.Add(Fields[j]);
      end;
    end;
  finally
    Strings.Free;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ListViewSaveToFile(ListView1,'D:\LV1.txt');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ListViewLoadFromFile(ListView1,'D:\LV1.txt');
end;