Cara Membuat Program Array Menggunakan Delphi

Kali ini saya akan berbagi kepada para pembaca tentang Cara Membuat Program Array Menggunakan Delphi...

Pertama kita harus mempunyai aplikasi delphi terlebih dahulu tentunya, jika sudah punya aplikasinya langkah-langkahnya sebagai berikut :

1.       Pertama buka terlebih dahulu aplikasi delphinya

2.       Setelah itu pilih File à New à Pilih Application

3.       Langkah selanjutnya kita harus membuat formnya terlebih dahulu, kurang lebih contohnya seperti di bawah ini :

4.       Kemudian, setelah form sudah selesai langkah selanjutnya adalah membuat listing programnya, misalnya untuk program di atas listing programnya kurang lebih seperti di bawah ini :

unit Program_Array;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Lbdata: TListBox;
    btninput: TButton;
    btnclear: TButton;
    btnclose: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    procedure btninputClick(Sender: TObject);
    procedure btnclearClick(Sender: TObject);
    procedure btncloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btninputClick(Sender: TObject);
Var i:integer;
Nama1,nama2 :array[1..5] of string;
S: string;
begin
  s:= inputbox('Input Data','Masukkan Jumlah Data :','0');
for i:= 1 to strtoint(s) do
begin
nama1[i]:= inputbox('Data Ke:'+inttostr(i),'Nama Awal',' ');
nama2[i]:= inputbox('Data Ke:'+inttostr(i),'Nama Belakang',' ');
Lbdata.ITEMS.ADD(NAMA1[I]+ ' ' +NAMA2[I]);
EDIT1.Text:= INTTOSTR (Lbdata.Items.COUNT);
END;
end;

procedure TForm1.btnclearClick(Sender: TObject);
begin
 Lbdata.clear;
EDIT1.Text:=' ';
end;

procedure TForm1.btncloseClick(Sender: TObject);
begin
halt;
end;

end.

5.       Setelah semua sudah selesai dan dirasa sudah cukup benar baik pembuatan formnya maupun listing programnya, coba jalankan program tersebut(running) dengan menekan tombol F9 pada keyboard.

6.       Good Luck !!! Semoga berhasil...!!!

Demikian para pembaca, itu tadi sedikit informasi dari saya mengenai Cara Membuat Program Array... Semoga bisa bermanfaat bagi anda semuanya. :)