Cara Membuat Program Array

PROGROM ARRAY


Buat Form seperti di atas..

Listing Program Untuk Button Input:

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;

Listing Program Untuk Button Clear:

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

Listing Program Untuk Button 

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

0 comments