Array jenis satu 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_satu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
ListBox1: TListBox;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Data:array of Integer;
index:Word;
begin
SetLength(Data,StrToInt(Edit1.Text));
ListBox1.Clear;
for index:=0 to HIGH(Data) do
begin
Data[index]:=Random(10);
ListBox1.Items.Add(IntToStr(Data[index]));
end;
end;
end.
4.jalankan program menggunakan tombol pada key board f9

Catatan :
var
Data : array of Integer;
// Deklarasi array dinamis dengan satu dimensi
indek : Word;
// Deklarasi indek untuk counter
begin
// menentukan panjang data dari array
// Panjang data array adalah 10
// dengan rincian indek 0..9
SetLength(Data,StrToInt(Edit1.Text));
// Mengosongkan data
ListBox1.Clear;
forindek := 0 toHigh(Data) do
begin
Data[Indek] := Random(10);
ListBox1.Items.Add(Int
Perintah menampilkan data dari array
apabila masih belum berhasil silahkan download filenyadisini jika berhasil mohon komentarnya begitu juga sebaliknya terimakasih sekian.....
SEMOGA BERHASIL.........