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.
hocam burdaki kod bende hata veriyor. nedeni ne olabilir?
YanıtlaSilBu yorum yazar tarafından silindi.
YanıtlaSilarkadaşım sorunu ve hatayı tam yazabilirsen yardımcı olmaya çalışalım...
YanıtlaSil