ListView İtem ekleme yapamadım

[doktoraltun]

merhaba arkadaşlar şöyle bir problemim var bir türlü çözemedim

memo1 den çektiğim içeriği listboxa sıralıyabiliyorum ama bu olayı listview de bir turlu sıralıyamadım alt alta sıralıyabilecegim bir kod parçası veya yol varmı arkadaşlar şimdiden teşekkürler.

[Code_Monster]

listviewin viewstyle özelliğini vsreport yap
sonra columns özelliğine gir ve 3 tane başlık oluştur
sonra aşağıdaki kodu çalıştır

with ListView1.items.Add do
begin
caption:='Baslik';
subitems.Add('altbaslik1');
subitems.Add('altbaslik2');
end;

eğer bir döngü içerisinde bu kodu çalıştırırsan altına ekler sürekli.

[doktoraltun]

hocam eklemeyi biliyorum memo1.text içeriğini çekmeyi bilimiyordum onuda öğrendim

belki birilerine lazım olur onuda yazayım

procedure TForm1.Button1Click(Sender: TObject);

var i:Integer;

begin

ListView1.Items.Clear;

for i:=1 to memo1.lines.count-1 do

with ListView1.Items.Add do

begin

caption:=Memo1.Lines;

{set icons,etc}

end;

end;

cevap için teşekürler hocam

[doktoraltun]

bu programdaki listede parse etmiş olduğum şarkı isimleri ve linkleri var bir türlü birbirilerinden ayıramadım listview dede bir sürü boş satır ekleniyordu bu meredin başka bir yolu yok mu acaba