Penggabungan String pada Delphi 7

Penggabungan String

Menggabungkan String adalah proses merangkai dua kata atau lebih menjadi satu kalimat atau kata yang baru. Operator String yang digunakan adalah operator dengan symbol ‘+’. Berikut listing yang sering digunakan :

var

     nama_depan,nama_belakang,nama_lengkap : string;

begin

     nama_depan := ‘Bocah’;

     nama_belakang := ‘Ndugal’;

     nama_lengkap := nama_depan+’ ‘+nama_belakang;

     ed_nama.Text := nama_lengkap;

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :
 

3. Listing Program sebagai berikut :

procedure TF_Penggabungan_String.bt_gabungClick(Sender: TObject);

begin

     ed_nama_depanbelakang.Text := ed_nama_depan.Text+' '+ed_nama_belakang.Text;

     ed_nama_lengkap.Text := ed_nama_depan.Text+' '+ed_nama_tengah.Text+' '+ed_nama_belakang.Text;

end;

procedure TF_Penggabungan_String.bt_closeClick(Sender: TObject);

begin

     Close;

end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com