Merhaba Arkadaşlar,

Bu dersimizde StringGrid nesnesini kullanarak küçük bir uygulama yapacağız. Hemen uygulamamıza başlayalım.

Önce aşağıdaki gibi bir form tasarlıyoruz.



Satır sayısı ve sütün sayısı bölümüne girdiğimiz değerlere göre StringGrid giridimizin satır ve sütün sayısını belirleyeceğiz. Satır numarası ve sütün numarası bölümünde de girilen değerde ki hücreye metin bölümüne girilen metni yazdıracağız.

Şimdi kodlamaya geçelim Ekle butonumuzun Click olayına şu kodları yazıyoruz.

procedure TForm1.Button1Click(Sender: TObject);

var a,b:variant;

begin

a:=strtoint(edit3.text);

b:=strtoint(edit4.text);

Stringgrid1.RowCount:=strtoint(edit1.text);

Stringgrid1.ColCount:=strtoint(edit2.text);

StringGrid1.Cells[b,a]:=edit5.text;

end;

Sıfırla butonunun click olayına ise şu kodlara yazıyoruz.

procedure TForm1.Button2Click(Sender: TObject);

var a,b:integer;

begin

edit1.text:=''; edit2.text:='';

edit3.text:=''; edit4.text:=''; edit5.text:=''; 

for a:=1 to stringgrid1.rowcount do

for b:=1 to stringgrid1.colcount do

stringgrid1.Cells[a,b]:='';

end; 

Uygulamamız hazır, şimdi çalıştırarak uygulamamız görelim.