Penggabungan String Di Delphi

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 dalamPenggabungan 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