Delphi – Copy String

Assalamualaikum Temen Temen Semua, Salam Semangat Di Hari minggu ini d(^o^”), Catatan Eko kembali dengan Tips Tips materi Pembelajaran Delphi lagi nich.

Untuk Minggu Pagi ini saya mau berbagi tips dalam Pengkopian ( Copy ) String pada Delphi. Dimana kita bisa mengcopy sebagian String dari suatu nilai dan menghasilkan nilai baru, dimana pengcopyan string ini bisa berguna untuk temen temen yang mau membuat pengkodean pada suatu program, nah langsung aja disimak ya.

Pengcopyan String Pada Delphi digunakan untuk mencetak kembali String atau karakter sebanya huruf yang ditentukan, dan juga letak posisi karakter yang ditentukan untuk dicopy. Saya pribadi sering menggunakan fungsi copy ini untuk pembuatan pengkodean pada suatu program agar kode terlihat terlihat unix dan kuat dengan penggabungan String dan Number.

Bentuk Umumnya >> Copy(teks, index, jumlah )

Copy à perintah yang digunakan untuk mencopy string.

Teks à Variable String / Nilai String yang ingin di copy.

Index à Posisi awal String atau Karakter yang hendak dilakukan pengcopyan

Jumlah  à Jumlah String atau karakter yang hendak di copy.

Lansung aja kita praktekkan ya temen temen. 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 :

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

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

<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

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Mengcopy String. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

Download – Materi 21 Pengcopyan String

Tetap Simak Terus Catatan Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

_______________________________________________________________________________

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

–          Delphi – Penggabungan String

–          Delphi  – Penggunaan Procedure

–          Delphi – Looping Input Box

_______________________________________________________________________________