Добавить в Memo содержимое ListView

[Shouldercannon]

Подскажите пожалуйста как добавить в Memo содержимое ListView.

[DM_bite]

Скорее всего так:

procedure TForm1.FormCreate(Sender: TObject);
begin
ListView1.AddItem(Memo1.Lines.Strings[0], Memo1);
end;

[Shouldercannon]

Я имел ввиду записи из ListView поместить в Memo.

[Stilet]

Пройдись в цикле по итемсам ЛистВью функцией GetNextItem и подобавляй их в Мемо.

[Neeter]

Ну а в чем проблема-то?

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
begin
 Memo1.Lines.Clear;
 for i := 0 to ListView1.Items.Count - 1 do
 begin
  Memo1.Lines.Add(ListView1.Items[i].Caption);
  if ListView1.Items[i].SubItems.Count <> 0 then
   for j := 0 to ListView1.Items[i].SubItems.Count - 1 do
    Memo1.Lines.Add(ListView1.Items[i].SubItems[j]);
 end;
end;

[Neeter]

Можно еще сделать вот так, чтоб subitem'ы немного отделялись от главных итемов:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
begin
 Memo1.Lines.Clear;
 for i := 0 to ListView1.Items.Count - 1 do
 begin
  Memo1.Lines.Add(ListView1.Items[i].Caption);
  if ListView1.Items[i].SubItems.Count <> 0 then
   for j := 0 to ListView1.Items[i].SubItems.Count - 1 do
    Memo1.Lines.Add('  ' + ListView1.Items[i].SubItems[j]);
 end;
end;