Stringgrid | Input Data | Tutorial Delphi | Stringgrid adalah salah satu komponen dari Delphi yang mampu menyajikan data dalam bentuk baris dan kolom. Dalam penyajian data tersebut, diperlukan beberapa properti untuk mengakses stringgrid. Posting kali ini ada sedikit contoh tentang cara input data atau penggunaan stringgrid sederhana. Gambarannya, data yang adakan dimasukkan stringgrid diketi dalam TEdit, kemudian diinputkan. Beberapa komponen yang digunakan adalah Stringgrid, TEdit, Button, dan Label. Properti stringgrid yang digunakan adalah :
ColCount : Untuk menentukan jumlah kolom dalam stringgrid.
RowCount : Untuk menentukan jumlah baris dalam stringgrid.
ColWidhts : Untuk menentukan lebar kolom dalam stringgrid.
Cells : Untuk menyatakan konten pada alamat [kolom,baris]. Data berupa string dalam alamat tersebut.
Langsung saja ya kita belajar bareng di langkah-langkahnya :
1. Membuat form dengan komponen stringgrid, button, TEdit, dan label.
2. Membuat variabel global.
var
Form1: TForm1;
y : integer;
3. Membuat prosedure FormOnCreate.
procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.RowCount := 12;
stringgrid1.ColCount := 2;
stringgrid1.Cells[0,0] := 'No.';
stringgrid1.Cells[1,0] := 'Text';
stringgrid1.ColWidths[1] := 175;
stringgrid1.ColWidths[0] := 50;
y := 0;
end;
4. Membuat prosedure Button1OnClick.
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(y);
stringgrid1.Cells[1,y] := edit1.Text;
stringgrid1.Cells[0,y] := inttostr (y);
end;
5. Running aplikasi dan memasukkan data pada stringgrid. Caranya ketik teks di TEdit Klik Button.
var
Form1: TForm1;
y : integer;
3. Membuat prosedure FormOnCreate.
procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.RowCount := 12;
stringgrid1.ColCount := 2;
stringgrid1.Cells[0,0] := 'No.';
stringgrid1.Cells[1,0] := 'Text';
stringgrid1.ColWidths[1] := 175;
stringgrid1.ColWidths[0] := 50;
y := 0;
end;
4. Membuat prosedure Button1OnClick.
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(y);
stringgrid1.Cells[1,y] := edit1.Text;
stringgrid1.Cells[0,y] := inttostr (y);
end;
5. Running aplikasi dan memasukkan data pada stringgrid. Caranya ketik teks di TEdit Klik Button.
Yaaa…itu hanya sedikit sharing pengalaman, heeeee…Cuma sederhana saja,,,maap yaa…
Salam damai, senajan kenthir nanging kebak pikir
Semoga bermanfaat….