Program Input Nama Dengan Metode Array

Pada pertemuan kali ini saya akan mencoba untuk mengposting cara membuat program Input Nama Dengan Metode Array dengan menggunakan program yang sama seperti pada posting sebelum – sebelumnya yaitu Borland Delphi 7.
    Tanpa banyak basa basi mari kita langsung ke praktek membuatnya dan ikuti langkah – langkah berikut ini.
Program Input Nama
1.    Buatlah desaign seperti di bawah ini pada form aplication.

 2.    Setelah itu setting properti pada object inspector seperti di bawah ini.

3.    Setelah itu edit kode program pada input, clear dan close caranya

• Double klik pada buttom input dan tulis kode sepert di bawah ini

 procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
nama1,nama2:array [1..5] of string;
s:string;

begin
s:=inputbox ('inputdata','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.Button1Click(Sender: TObject);
var
i:integer;
nama1,nama2:array [1..5] of string;
s:string;

begin
s:=inputbox ('inputdata','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;

• Double klik pada buttom clear dan tulis kode sepert di bawah ini

procedure TForm1.Button2Click(Sender: TObject);
begin
lbdata.clear;
edit1.Text:=' ';
end;

• Double klik pada buttom close dan tulis kode sepert di bawah ini

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end.
4.    Setelah edit kode atau scripnya lanjutkan dengan menjalankan program tersebut dengan cara klik run atau f9

Begitulah cara membuat program input nama terimakasih sudah mengunjungi blog saya.
:)