Berkenalan dengan Function Copy di Delphi

Function ‘Copy’ di Delphi digunakan untuk menyalin substring dari sebuah string dengan indeks awal penyalinan dan jumlah karakter penyalinan yang dapat diatur. Function ini akan mengembalikan sebuah nilai bertipe string yang merupakan hasil eksekusi penyalinan substring yang di-define sebelumnya. Berikut ini adalah sintaks baku dari function ‘copy’ ini :

Function Copy (stringX, indeksA, jmlkar):string;

dengan parameter ‘stringX’ adalah variabel string yang akan diambil/disalin beberapa unsur substringnya, ‘indeksA’ adalah indeks awal penyalinan substring dan parameter ‘jmlkar’ adalah jumlah karakter yang akan disalin. Contoh sederhananya adalah sebagai berikut : ada sebuah variabel string dengan nama ‘S1’ yang berisi kalimat ‘Kuku kaki kakekku kaku kaku’. Berikutnya Anda ingin menyalin substring ‘kakekku’ dalam string ‘S1’ ke variabel yang kedua misalkan variabel ‘S2’. Hal ini dapat dengan mudah Anda lakukan dengan function copy sebagai berikut :

S2:=copy (S1,11,7);

Dengan penugasan script di atas, maka variabel S2 akan berisi substring ‘kakekku’ yang merupakan nilai kembalian yang didapat setelah mengeksekusi function copy (S1,11,7). Jika anda masih bingung darimana mendapat angka ‘11’ dan ‘7’ silahkan melihat gambar sebagai berikut : 

Berikut ini adalah contoh implementasi ilustrasi di atas mengunakan Delphi. Buat project Delphi baru, ambil komponen TButton, TMemo dan TEdit dari Component Pallete ke Form Designer. Atur peletakannya seperti contoh di bawah 

Double click tombol ‘Button1’ dan isikan script di bawah :

procedure TForm1.Button1Click(Sender: TObject);
var S1,S2:string;
begin
  S1:=memo1.Text;
  S2:=copy(S1,11,7);
  edit1.Text:=S2;
end;

Running program di atas (F9) dan coba isi kotak Memo1 dengan string ‘Kuku kaki kakekku kaku kaku’ kemudian tekan tombol Button1. Seharusnya di kotak Edit1 akan berisi substring ‘kakekku’ 

Semoga bermanfaat, untuk artikel mendatang akan membahas function copy dengan parameter yang didefinisikan secara dinamis saat runtime (pada contoh di atas parameter masih langsung disebutkan dengan angka ‘11’ dan ‘7’)

bersambung

Saptaji, ST. M.Tr.T

a Technopreneur – writer – Enthusiastic about learning AI, IoT, Robotics, Raspberry Pi, Arduino, ESP8266, Delphi, Python, Javascript, PHP, etc. Founder of startup Indomaker.com