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 StringGridRowCount : 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.
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
