Menggunakan 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:

Buat lah program konversi kurs dollar terhadap rupiah dengan input berupa harga per dollar dalam rupiah. Selalnjutnya dilakukan prosesi perhitungan konversi dari 1 sd 100 dollar dalam bentuk lajur. Contoh tampilannya sebagai berikut:

Tampilan Stringrid

Penyelesaian:

Desain Form seperti tampilan berikut ini:

Form Stringgrid

Atur properti StringGrid1 sebagai berikut:

• FixedCols: 0

• ColCount: 2
• RoowCount:101

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

procedure TForm1.FormCreate(Sender: TObject);   var i:integer; begin    stringgrid1.Cells[0,0] := 'Dollar';    stringgrid1.Cells[1,0] := 'Rupiah';      for i:=1 to 100 do       stringgrid1.Cells[0,i] := inttostr(i); end;   procedure TForm1.Button1Click(Sender: TObject); var hargadollar :longint;     rupiah: longint;     i: integer; begin     hargadollar:= strtoint(edit1.Text);     for i:=1 to 100 do        begin          rupiah:=i*hargadollar;          stringgrid1.Cells[1,i]:=inttostr(rupiah);        end; end;   procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin for i:=1 to 100 do       stringgrid1.Cells[1,i] := ''; end;   procedure TForm1.Button3Click(Sender: TObject); begin    close; end;