listview' den memo nesnesine aktarmak.

[xcom]

listviw'de listelenen değerleri (listview iki coloumn dan oluşmaktadır.) memo'ya nasıl aktar biliriz.


iyi çalışmalar kolay gelsin..

[lazio]

merhaba,

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  lv : TListItem;
  x : Integer;
begin
  with ListView1 do
  begin
    for x := 0 to Items.Count - 1 do
    begin
      Memo1.Lines.Add(Items.Item[x].Caption + ' ' + Items.Item[x].SubItems.Text);
    end;
  end;
end;