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.

DELPHİ Programlama Dili ile Basit Bir İşlem Yapma

Form alanınıza işleminizin sonucunu gösterecek bir edit kutusu veişlemi yapacak bir buton yerleştirin. Daha sonra işlem butonunuzun adını yapacağınız işleme göre adlandırabilirsiniz.  Ben basit bir toplama işlemi yapacağım fakat, sizinyapacağınız işlemler : Çıkarma,bölme,çarpma v.s olabilir.

Butonunuzu adlandırdıktan sonra edit kutunuzun içersini temizleyin. Daha sonra butonunuza çift tıklayarak programın kod alanına giriş yapın.

NOT : 1-formunuz ile kod alanınız arasındaki geçişlerde F12 tuşunu kullanabilirsiniz.
           2-Programı çalıştırmak için F9 tuşunu yada run komutunu kullanabilirsiniz.

Kod kısmında yapacağınız işlem sıralaması şöyle olmalı ;


var


t:integer;


begin


t:=1+2+3..........+9+10;


edit1.text:=inttostr(t);


end;
end.

(Açıklama)

* Toplama işlemi için değişkenimizi (t) olarak atayıp integer türünde tanımlıyoruz.*
*Programı başlat komutunun alt kısmına (değişken:=toplamak istediğimiz rakamlar;)*
*Sonucu göstermesini istediğimiz alanı yazarak integer olan sayımızı string'e çeviren komutu yazıyoruz.*
*Ve programı bitiriyoruz.*