Ruh Hali : Mesaj Sayısı : 952 Rep Puanı : 13129 Teşekkür Aldı : 0 Kayıt tarihi : 29/10/09 Nerden : Kocaeli/Gebze İş/Hobiler : MEsaj atmak :D Lakap : Sezo
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.
Nerden
İş/Hobiler
Lakap
Salı Ara. 08, 2009 4:26 pm
