Delphi : Program Input Data

Nama            : ANDI KHOIRUDIN

Kelas            : 2-B SMT 2

Jurusan        : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Sederhana Menginput Data dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya : 

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Input  dan Sisipkan script di bawah ini : 

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;

5.Kemudian Double Klik Button Clear  dan Sisipkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
LBData.Clear;
Edit1.Text :=' ';
end;

6.Kemudian Double Klik Button Close dan Sisipkan script di bawah ini :

procedure TForm1.CLOSEClick(Sender: TObject);
begin
  CLOSE;
end;

7. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

8. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung