LATIHAN 2

1. Buat aplikasi dengan tampilan sebagai berikut!

2. Ubah properti dari object inspector!

3. Buat kode Program!

a. Klik ganda Button INPUT

procedure TForm1.Button1Click(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.Button2Click(Sender: TObject);

begin

LBData.Clear;

Edit1.text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

b. Klik ganda Button CLEAR

procedure TForm1.Button2Click(Sender: TObject);

begin

LBData.Clear;

Edit1.text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

c. Klik ganda Button CLOSE

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

4. Klik Button Running atau tekan tombol F9 pada keyboard untuk melihat hasilnya.

• Masukkan jumlah data

• Masukkan nama awal

• Masukkan nama akhir

• Maka akan ditampilkan daftar nama seperti dibawah ini