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

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;