Delphi 1 : Menampilkan nama dan NPM

procedure TForm1.Button1Click(Sender: TObject);

begin

label3.caption :=edit1.Text;

label4.caption :=edit2.Text;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Label3.caption :=' ';

Label4.caption :=' ';

edit1.Text :=' ';

edit2.Text :=' ';

edit1.text :

edit1.setfocus;

end;

end.

Logika Program    :

Dalam Delphi sendiri kita membuat program sesuai dengan apa yang kita inginkan dengan menggunakan komponen yang telah disediakan. Dan listing program yang kita tuliskan pun hanya pada bagian yang akan kita kenai tugas, contohnya button1 sebagai tempat menginput data sehingga label dapat menampilkan apa yang ditulis di komponen edit1, maka listing program yang akan kita tuliskan hanya di bagian button1 sebagai tombol input. Kita hanya menuliskan procedure event-nya saja

procedure TForm1

maksudnya kita sedang melakukan listing program pada form 1.

Click

Untuk menjalankan button yang digunakan dengan cara di klik,

procedure TForm1.Button1Click(Sender: TObject);

untuk menunjukkan bahwa kita menggunakan Button1 sebagai tombol untuk menginput data yang akan ditampilkan pada label, sesuai dengan keinginan kita. Hal yang kita inginkan adalah ketika tombol input diklik maka data yang ada pada kotak edit 1 dan edit 2 akan tercetak pada label 3 dan label 4. Maka penjelasan listing programnya adalah :

Begin sebagai awal dari program yang akan kita buat pada Button1.

label3.caption :=edit1.Text;

Label merupakan control yang dipakai sebagai tempat menampilkan keterangan. Sedangkan edit sendiri adalah kontrol yang dipakai sebagai tempat untuk mengisi maupun menampilkan data. Maksudnya adalah pada label 3 akan di cetak segala sesuatu yang akan dituliskan pada edit1 dan berupa teks.

label4.caption :=edit2.Text;

Label merupakan control yang dipakai sebagai tempat menampilkan keterangan. Sedangkan edit sendiri adalah kontrol yang dipakai sebagai tempat untuk mengisi maupun menampilkan data. Maksudnya adalah pada label 4 akan di cetak segala sesuatu yang akan dituliskan pada edit2 dan berupa teks.

End;

Untuk mengakhiri listing program per bagian penulisan program.

procedure TForm1.Button3Click(Sender: TObject);

untuk menunjukkan bahwa kita menggunakan Button3 sebagai tombol keluar atau exit. Yang kita inginkan adalah ketika kita mengklik tombol exit maka kita akan keluar dan berhenti dari program yang sedang berjalan. Maka penjelasan listing programnya adalah :

Application.Terminate;

Sebagai listing program untuk berhentidan keluar dari program yang sedang berjalan.

procedure TForm1.Button2Click(Sender: TObject);

untuk menunjukkan bahwa kita menggunakan Button2 sebagai tombol menghapus data yang telah diisi dan ingin mengisinya dengan data yang baru. Hal yang kita inginkan adalah menghapus data yang diinput pada edit1,edit2,  label3, label4. Maka penjelasan listing programnya adalah :

Label3.caption :=' ';

Label4.caption :=' ';

edit1.Text :=' ';

edit2.Text :=' ';

maksudnya adalah ketika mengklik tompol delete maka pada label 3, label 4, edit1 dan edit 2 akan berisi data yang kosong karena dalam tanda petik satu tersebut tidak ada yang diisi maka menghasilkan data yang kosong. Dalam Delphi untuk mencetak data yang dimasukkan pada listing program menggunakan tanda petik satu ( ‘ ).

edit1.setfocus;

End.Untuk mengarahkan kursor untuk mengisi data baru pada edit1 dan edit2 dimana  ketika program berjalan, data yang telah masuk dihapus dan secara otomatis kursor berada pada edit1.

Untuk mengakhiri keseluruhan program.

Output :