Delphi – Penggabungan String

Assalamualaikum Temen Temen Semua, Salam Semangat Di Akhir Pekan Sabtu ini /(^.^”) kembali dengan tips tips materi pembelajaran Delphi hanya di Catatan Eko.

Untuk Pagi hari ini saya mau berbagi tips dalam Penggabungan String / kata pada Delphi. Hmmm apa yang digabungkan, Bagaimana dan Seperti Apa hasilnnya. Tetep Simak Tulisan ini sampai akhir, dan temen temen akan temukan jawabannya *hehehehe, mudah mudahan berguna. Monggo DiSimak.

Penggabungan String pada Delphi gabungan 2 kata yang terdapat pada 2 input nilai edit box, Tipe Data default yang akan muncul pada pada Edit box / teks box di Delphi adalah string atau kalimat kata. Untuk masukan masukan pada edit box ternyata bisa kita jadikan menjadi satu kalimat dengan menggabungkan nilai string pada beberapa edit box tersebut. Wah penasarankan, langsung aja kita praktek nich.

  • Untuk Pertaman silahkan temen temen buat design form sebagai berikut :

 

  • Atur Properties Namenya Menjadi Seperti Di bawah ini :

 

Nah untuk alur programnya sebagai berikut :

  • Pada saat program dijalankan kita bisa mengisi, 3 edit box dengan kata kata yang berbeda beda.
  • Jika Button Gabung di tekan, namun pada edit box masih ada yang kosong tanpa isian teks / string maka muncul peringatan bahwa kita harus mengsi teks tersebut, dan set focus kesana.
  • Jika Button Gabung di tekan, dan edit box sudah terisi semua maka pada edit satudua akan mendapatkan kalimat dari gabungan edit_satu dan edit_dua, dan untuk edit_satuduatida didapat dari gabungan ketiga kata tersebut.
  • Jika button keluar di tekan maka akan muncul peringatan konfirmasi yakin akan keluar.

Berikut ini adalah listing Codenya :

procedure Tform_materi20.button_gabungClick(Sender: TObject);
  var
    kata_satu:string;
    kata_dua:string;
    kata_tiga:string;
begin

  if edit_satu.Text='' then
    begin
      showmessage('Silahkan Masukkan Kata Pertama');
      edit_satu.SetFocus;
    end
  else if edit_dua.Text='' then
    begin
      showmessage('Silahkan masukkan Kata Kedua');
      edit_dua.SetFocus;
    end
  else if edit_tiga.Text='' then
    begin
      showmessage('Silahkan masukkan Kata Ketiga');
      edit_tiga.SetFocus;
    end
  else
    begin
      kata_satu:=edit_satu.Text;
      kata_dua:=edit_dua.Text;
      kata_tiga:=edit_tiga.Text;

      edit_satudua.Text:=kata_satu+' '+kata_dua;
      edit_satuduatiga.Text:=kata_satu+' '+kata_dua+' '+kata_tiga;
    end;

end;

Temen Temen, memberikan variable untuk setiap nilai string kemudian menambahkannya pada saat ingin menampilkan hasilnya dengan penambahan  dan ( + ) dan kutip ( ‘ ) lihat list code diatas. perhatikan posisi ( + ) dan ( ‘ ) hal tersebut yang menentukan hasil penggabungan nilai variablenya. temen temen tinggal berkreasi dengan basik code diatas.

procedure Tform_materi20.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes)then
    begin
      close;
    end

end;

Seperti biasa untuk button keluar ditampilkan messagebox untuk konfirmasi masi penggunanya.

Dan Untuk tampilah hasilnya bisa dilihat dibawah ini :

muncul peringatan untuk mengisi saat gabung diklik namun edit ada yang kosong

Hasil Penggabungan String

message box keluar dari program

Nah itulah beberapa tips yang bisa saya bagikan pada kesempatan pagi hari ini dengan tema penggabungan String. Mudah sekali kan, pastinya lah soalnya belajar Borland Delphi memang gampang kok \(^o^”). Untuk temen temen yang mau mendownload materi hari ini bisa di unduh di link dibawah ini.

Download – Materi 20 Penggabungan String

Tetep Simak Terus Catatan Eko ya Temen temen semua, kita akan tetap kembali dengan tips tips menari materi pembelajara computer, dan tentunya pemrograman Delphi.. Sampai Jumpa lagi Di Materi Berikutnya. Salam Semangat

Eko

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi  – Penggunaan Procedure

–          Delphi – Looping Input Box

–          Delphi – Menggunakan Input Box

_______________________________________________________________________________

5 thoughts on “Delphi – Penggabungan String

  1. Ping-balik: Materi 22 – Copy String « Catatan Eko

  2. Ping-balik: Delphi – Validasi Angka Input Box « Catatan Eko

  3. Ping-balik: Delphi – Web Browser « Catatan Eko

  4. makasih mas , om atas ilmunya
    sudah lama sy ubeg2 mbah google tentang tips ini
    semoga mas , omnya di berikan balasan yg lebih oleh Allah SWT atas ilmu yg mas , om berikan🙂

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s