Belajar Delphi Menggunakan Array

Akhirnya 1 tugas selesai dari 3 tugas yang diberikan, (ah payah lu men) :-D

Pengertian array : Suatu array adalah sebuah struktur data yang terdiri atas banyak variabel dengan
tipe data sama, dimana masing-masing elemen variabel mempunyai nilai indeks.
Setiap elemen array mampu untuk menyimpan satu jenis data yaitu Variabel.

contoh


Struktur programnya adalah
unit tyu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    procedure Label1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnCreate(Sender: TObject);
begin
Tag:=0
Tag:=Tag+1;NamaBulan[Tag]:='Januari';
Tag:=Tag+1;NamaBulan[Tag]:='Pebruari';
Tag:=Tag+1;NamaBulan[Tag]:='Maret';
Tag:=Tag+1;NamaBulan[Tag]:='April';
Tag:=Tag+1;NamaBulan[Tag]:='Mei';
Tag:=Tag+1;NamaBulan[Tag]:='Juni';
Tag:=Tag+1;NamaBulan[Tag]:='Juli';
Tag:=Tag+1;NamaBulan[Tag]:='Agustus';
Tag:=Tag+1;NamaBulan[Tag]:='September';
Tag:=Tag+1;NamaBulan[Tag]:='Oktober';
Tag:=Tag+1;NamaBulan[Tag]:='Nopember';
Tag:=Tag+1;NamaBulan[Tag]:='Desember';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=NamaBulan[strtoint(Edit1.Text)];
end;

end.

Terima kasih telah membaca & bila ada yg salah saya minta maaf.