Delphi – Penggabungan String, Copy String

Delphi – Penggabungan String

• 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 :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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.

1 2 3 4 5 6 7 8 9

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

Delphi – Copy String

Untuk hal awal buat lah design form sebagai berikut :

 

• Atur Properties Namenya menjadi seperti dibawah ini :

 
Nah untuk alur programnya sebagai berikut :

• JIka Tombol Bersih di klik maka seluruk teks dibersihkan.
• Jika Button Copy diklik namun edit Kata kosong maka akan muncul peringatan untuk pengisian Edit Kata.
• Jika Button Copy diklik dan edit Kata Terisi maka akan dilakukan pengkopian ( copy ) 3 hurup dari awal yang ditampilkan pada edit copy awal dan dilakukan pengkopian ( copy ) 3 hurup dari posisi index 4 di edit kata.
• Jika button keluardi klik muncul konfirmasi masi peringatan yakin akan keluar.
  • Note : spasi akan dihitung 1 karakter pada Delphi.

Berikut ini adalah Listing Codenya :

1 2 3 4 5 6 7 8

<br /> procedure Tform_materi21.Button2Click(Sender: TObject);<br /> begin</p> <p>  edit_kata.Text:='';<br />   edit_copyawal.Text:='';<br />   edit_copytengah.Text:='';</p> <p>  edit_kata.SetFocus;</p> <p>end;<br />

berikut list kode diatas untuk button bersih saat di klik, semua teks dhaous atau dibersihkan.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

<br /> procedure Tform_materi21.Button1Click(Sender: TObject);<br />   var<br />     kata:string;<br /> begin</p> <p>  if edit_kata.Text='' then<br />     begin<br />       showmessage('Silahkan Masukkan Kata Dasarnya');<br />       edit_kata.SetFocus;<br />     end<br />   else<br />     begin<br />       kata:=edit_kata.Text;</p> <p>      edit_copyawal.Text:=copy(kata,1,3);<br />       edit_copytengah.Text:=copy(kata,5,3);<br />     end;</p> <p>end;<br />

1 2 3 4 5 6 7 8

<br /> procedure Tform_materi21.Button3Click(Sender: TObject);<br /> begin</p> <p>  if(application.MessageBox('yakin akan keluar dari Program','Konfirmasi',MB_YesNo)=ID_Yes)then<br />     begin<br />       close;<br />     end;</p> <p>end;<br />

code diatas untuk konfirmasi message box keluar dari program.
code diatas untuk proses button copy untuk proses pengkopian ( copy ) string. validasi dilakukan jika kata pada edit kosong atau tidak.
Dan Untuk Tampilan hasil programnya bisa dilihat dibawah ini :

konfirmasi saat teks kata masih kosong - dan tidak bisa melakukan copy

klik disini