TListview alle Einträge in einem TMemo einlesen?

[smart]

Zitat von marabu:

Hallo Heike,

Zitat von smart:

Wie kann ich aus einem TListview alle Einträge in einem TMemo einlesen?

da gibt es zwei grundsätzliche Wege:

(1) Jedes Item wird auf genau eine Line abgebildet (delimited text format, CSV) oder
(2) jedes Subitem wird auf genau eine Zeile abgebildet und zu jedem Item gibt es eine Trennzeile (name-value format, INI, LDIF).

Für CSV hatte ich bereits früher eine Demo bereit gestellt. Hier eine Routine zur Erzeugung von name-value pairs:

Delphi-Quellcode:

procedure SaveItems(items: TListItems; lines: TStrings;
    const nameValueSeparator: string = '');
var
  i, iSub: Integer;
  item: TListItem;
  s: string;
begin
  lines.BeginUpdate;
  lines.Clear;
  for i := 0 to Pred(items.Count) do
  begin
    item := Items[i];
    for iSub := 0 to item.SubItems.Count do
    begin
      if nameValueSeparator = ''
        then s := ''
        else s := item.ListView.Column[iSub].Caption + nameValueSeparator;
      if iSub = 0
        then s := s + item.Caption
        else s := s + item.SubItems[Pred(iSub)];
      lines.Add(s);
    end;
    lines.Add('');
  end;
  lines.EndUpdate;
end;

Freundliche Grüße

Hi marabu!

Vielen Dank. Wie rufst Due es auf? Ich habe es versucht, aber das Memo wird immer noch nicht gefüllt.

Gruß
Heike