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