program array dalam delphi , sebagai contoh nih scriptnya
procedure TForm1.Button1DoubleClick(Sender: TObject);
var a,b:integer;
nama :array [1..90]of string;
kelas :array [1..90]of string;
jurusan :array [1..90]of string;
begin
if Edit1.Text<>'' then
begin
b:=StrToInt(Edit1.Text);
for a:=1 to b do
begin
nama[a] :=InputBox('Nama','Nama','');
kelas[a] :=InputBox('Kelas','Kelas','');
Jurusan[a]:=InputBox('Jurusan','Jurusan','');
end;
StringGrid1.RowCount:=b+1;
for a:=1 to b do
begin
StringGrid1.Cells[1,a]:=nama[a];
StringGrid1.Cells[2,a]:=kelas[a];
StringGrid1.Cells[3,a]:=jurusan[a];
end;
end
else
Application.MessageBox('Masukkan Data','Error');
Edit1.SetFocus;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
StringGrid1.cells[0,0]:= 'No' ;
StringGrid1.cells[1,0]:= 'Nama' ;
StringGrid1.cells[2,0]:= 'Kelas' ;
StringGrid1.cells[3,0]:= 'Jurusan';
end;
end.
Nih ss design program nya
Silahkan mencoba semoga bermanfaat bagi bagi cendol juga ya jangan lupa :p
Mohon dengan sangat bantuannya...bagaimana caranya mengambil nilai dari cell yang ada pada stringrid delphi kemudian kita pindahkan ke edit text yang terpisah dengan titik koma(;) yang hanya membaca kolom saja sementara barisnya tetap..contohnya nilai cell stringgrid delphi 24|22|21|10|....dibaca di edit text 24;22;21;10...tanda (....) menandakan bahwa parameter yang kita pakai merupakan array dinamis tergantung pada kebutuhan data yang kita tidak tahu jumlahnya. Kita hanya mebaca nilai cell stringgrid [1,1],[2,1],[3,1],[4,1]...[n,1]. Mohon sekali bantuannya...
ReplyDelete