Membuat array dan menu pada delphy

Listing program

unitarrrray;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

Tarrray = class(TForm)

btnstart: TButton;

txtinput: TEdit;

procedurebtnstartClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

arrray: Tarrray;

tombol : array of TLabel;

implementation

{$R *.dfm}

procedureTarrray.btnstartClick(Sender: TObject);

var i, pjg : Integer;

begin

pjg := strtoint (txtinput.Text);

SetLength(tombol, pjg);

for i := 0 to pjg-1 do begin

tombol [i] := TLabel.Create(Self);

withtombol [i] do begin

Top := 50;

Width := 30;

Left := i*20;

Parent := Self;

Caption :=inttostr(i);

end;

end;

end;

end.

Logika Program

unitarrrray;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

Statement inimaksudnyamenjelaskannama unit yang digunakanuntukmembuatprogram,contohnyapada program inimenggunakannama unitarrrray.

type

Tarrray = class(TForm)

btnstart: TButton;

txtinput: TEdit;

procedurebtnstartClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Statement inimenjelaskantentang component-component yang digunakanbesertanama yang digunakanpadamasing-masing component tersebut,danjugaprosedur yang digunakanpada component tersebutcontohnya component TButton 1 memilikinamabtnstartdanseterusnya.sehingga program dapatmemilikiprosedur yang jelasketikamengeksekusisetiap component tersebut,danjugamendeklarasikanbahwa program inimempunyai program yang mempunyai identifier private dan public.

var

arrray: Tarrray;

tombol : array of TLabel;

implementation

{$R *.dfm}

procedureTarrray.btnstartClick(Sender: TObject);

var i, pjg : Integer;

begin

pjg := strtoint (txtinput.Text);

SetLength(tombol, pjg);

for i := 0 to pjg-1 do begin

tombol [i] := TLabel.Create(Self);

withtombol [i] do begin

Top := 50;

Width := 30;

Left := i*20;

Parent := Self;

Caption :=inttostr(i);

end;

end;

end;

end.

Statement diatasmaksudnyamembuatsebuah variable barusebagai variable array tersebut,yangdigunakanadalah variable bernamatombol,danpada variable tomboliniakandibuatsebuaharray.dan procedure yang dilakukanpada form array iniketikaketikakitaklikbtnstartmakaakandilakukanaksiataupengeksekusianstatement.berikutnyamendeklarasikanbahwatipe data yang digunakanpada program iniadalahinteger.selanjutnyamendeklarasikansebuahkomponen yang bernamatxtinputyaitusebuahkomponen edit dengan variable pjg.selanjutnyamembuatsebuahperulanganuntukmembuatsebuaharray,yangdigunakanpada program iniadalahperulangan for to do,sedangkan statement perulangan yang dilakukanadalahsebagaiberikutfor i := 0 to pjg-1 do begin,maksudnyaadalahperulanganakandilakukanmulaidari 0 sampainilai yang diinputdandisimpanpada variable pjg,akantetapiakandikurangi 1,sehingga apabilakitamasukkan 5 maka yang dicetakbukannya 0 1 2 3 4 5 akantetapi 0 1 2 3 4.selanjutnya membuat label secaraotomatis,pada variable objek yang kitabuatdiatas,dengancaramendeklarasikanposisi label tersebut,misalnyaposisiatasnya 30 darititik paling atasnyadenganmenggunakan statement top,lebardengan statement width,danspasisetiapperulangannyadengancaramemasukkan statement Left := i*20; yang maksudnyasetiapperulanganakandilakukanspasisebanyak 20.