LİSTEYE ELEMAN EKLEME

Button1 Ekle düğmesi kullanıldığında Edit1,ComboBox1,DataTimePicker1 kutularının içeriğini ListView1 in sırasıyla " Adı Soyadı", "Bölümü" ve "Kayıt Tarihi" sütünları altına ekleyecektir.

Bunun için düğmeyi çift tıklayın ve kod pencersinde açılacak olan Button1Click prosedürüne aşağıdaki kodu yazın.



procedure TForm1.Button1Click(Sender:TObject);

//Statik bir değişken tanımlaconst s:integer=0;
begin

//Eğer listede eleman yoksa sayacı sıfırla
if Listview1.items.count=0 then s:=0;

//Yeni eleman ekleListview1.items.add;

//satır İçerikleri
//Birinci SütunListview1.items.item[s].Caption:=edit1.text;

//İkinci SütunListview1.items.item[s].Subitems.add(ComboBox1.text);

//Üçüncü SütunListview1.items.item[s].Subitems.add(DateToStr(DateTimePicker1.Date);

//sayacı bitirs:=s+1;
end;
end.