Array multi dimensi menggunakan delphi7

Pengertian Array
Array (larik) merupakan tipe data tersetruktur dimana didalamnya terdiri dari komponen
– komponen yang mempunyai tipe data yang sama. Didalam suatu array jumlah
komponen banyaknya adalah tetap. Didalam suatu larik atau array setiap kompoenen
ditunjukan oleh suatu index yang unik. Index dari setiap komponen array menunjukan
urutan data atau identitas yang mewakili data yang ada didalamnya.
Logika sederhananya array itu bisa disamakan dengan dua orang dengan nama yang sama
didalam suatu komunitas, untuk membedakan antara nama yang satu atau dengan nama
yang lain maka diberikan initial tambahan untuk setiap nama.
Deklarasi Array
Didalam penulisan bahasa pemograman setiap penggunaan array harus dideklarsikan
terlebih dahulu. Pendeklarasian array diawali dengan nama variabel array diikuti dengan
indeks array yang dituliskan didalam tanda “[]” , diikuti dengan kata cadangan of dan tipe data yang dibutuhkan.
okelah g usah lama-lama mari kita buat programnya
1.buka program delphi7 /other
2.buat projeknya seperti contoh ini

3.setelah anda buat rancangan tersebut klik 2 kali pada button dan tambahkan script berikut
unit array_multi;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Data : array of array of integer;
Baris, kolom : word;
begin
SetLength( Data,
StrToInt(Edit1.Text),
StrToInt(Edit2.Text));
for Baris := 0 to StrToInt(Edit1.Text) - 1 do
for Kolom := 0 to StrToInt(Edit2.Text) - 1 do
Data[Baris,kolom] := Baris + kolom;
ListBox1.Clear;
for Baris := 0 to StrToInt(Edit1.Text) - 1 do
for Kolom := 0 to StrToInt(Edit2.Text) - 1 do
ListBox1.Items.Add('[' + IntToStr(Baris) + ',' + IntToStr(Kolom)+'] =' +
IntToStr(Data[Baris,kolom]));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
4.jalankan program menggunakan tombol pada key board f9

CATATAN :
Data : array of array of integer;
Adalah pendeklarasian Array Multi Dimensi…
Baris, kolom : word;
Adalah Pendeklarasian Counter
SetLength( Data,
StrToInt(Edit1.Text),
StrToInt(Edit2.Text));
Untuk memtukan panjang Array untuk masing-masing dimensi melalui Edit.
Edit1 Adalah Panjang Dimensi 1 dan Edit2 Adalah Panjang Dimensi 2.
for Baris := 0 to StrToInt(Edit1.Text) - 1 do
for Kolom := 0 to StrToInt(Edit2.Text) - 1 do
Data[Baris,kolom] := Baris + kolom;
Untuk Memasukkan data ke dalam Array…
ListBox1.Clear;
mengosongkan data pada listbox
for Baris := 0 to StrToInt(Edit1.Text) - 1 do
for Kolom := 0 to StrToInt(Edit2.Text) - 1 do
ListBox1.Items.Add('[' + IntToStr(Baris) + ',' + IntToStr(Kolom)+'] =' +
IntToStr(Data[Baris,kolom]));
Perintah menampilkan data dari array
ini sekalian programnya silahkan down load disini jika berhasil mohon komentarnya begitu juga sebaliknya terimakasih sekian.....
SEMOGA BERHASIL.........