Mengenal StringGrid Pada Delphi

StringGrid Pada Delphi

StringGrid merupakan komponen visual Delphi yang digunakan menyajikan data dalam bentuk lajur atau Grid. Beberapa properti yang sering digunakan dalan komponen StringGrid diantaranya:

ColCount  : Properti Colcount digunakan untuk menentukan jumlah kolom pada StringGrid

RowCount : Properti RowCount  digunakan untuk menentukan jumlah baris  pada StringGrid

FixedCols   : Properti FixedCols menyataka jumlah kolom tetap (kolom judul) yang berada dikolom paling kiri dari tabel. Kolom tersebut tidak akan tergulung jika pengguna melakukan scrolling secara horispntal.
FixedRows  : Properti FixedRows menyatakan jumlah baris tetap (baris judul) yang berada dikolom paling atas dari tabel. Baris tersebut tidak akan tergulung jika pengguna melakukan scrolling secara vertikal.

Cells [kolom,baris] : Properti Cells [kolom,baris]  menyatakan konten  sel pada alamat [kolom, baris]. Melalui properti Cell dapat diakses data-data pada masing-masing cell. Tipe datanya berupa string sehingga data-data non string harus dikonversi dulu sebelum dimasukkan ke dalam properti ini.


Contoh Program:
Buatlah program membuat lajur harga foto kopi untuk jenis foto kopi 70 gram, 80 gram dan Buram. Adapun tampilannya sebagai berikut:

contoh aplikasi string grid

 Code Program :

procedure TForm1.Button1Click(Sender: TObject);
var gram1 :longint; harga1: longint;
    gram2: longint; harga2 :longint;
    buram : longint; harga3:longint;
    i: integer;
begin
    gram1:= strtoint(edit1.Text);
    for i:=1 to 100 do
begin
    harga1:=i*gram1;
    stringgrid1.Cells[1,i]:=inttostr(harga1);
 end;
 begin
gram2:= strtoint(edit2.Text);
    for i:=1 to 100 do
       begin
         harga2:=i*gram2;
         stringgrid1.Cells[2,i]:=inttostr(harga2);
         end;
 begin
    buram:= strtoint(edit3.Text);
    for i:=1 to 100 do
 begin
         harga3:=i*buram;
         stringgrid1.Cells[3,i]:=inttostr(harga3);
 end;
 end;
 end;
 end;
 end.

created by : tricklik.blogspot.com

keyword : StringGrid Pada Delphi , ColCount delphi , RowCount delphi , FixedCols delphi , Cells pada delphi