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