Lebih Dalam Tentang Function Pos, PosEx dan Copy di Delphi

Artikel berikut akan membahas tentang function Pos, PosEx, dan Copy yang banyak digunakan dalam contoh program di buku ‘Membuat SMS gateway dengan Delphi 7’. Kombinasi ketiga function di atas sangat ampuh untuk melakukan  parsing isi SMS . Secara umum fungsi ketiga function di atas adalah melakukan find/search suatu substring dalam sebuah string. Berikut ini adalah penjelasan ketiga function di atas dilengkapi dengan contoh programnya.

1. Function ‘Pos’

Function ini berada dalam unit ‘System’ sehingga Anda tidak perlu menambahkan unit ini secara manual ke dalam klausa ‘Uses’ Delphi. Function ‘Pos’ memiliki sintaks sebagai berikut :

function Pos (Substr:string,S:string):integer;

Penjelasan :

Function ‘Pos’ memiliki dua passing variable yakni ‘Substring’ dan ‘S’ yang masing-masing bertipe string. Namun, function ini secara keseluruhan akan mengembalikan sebuah nilai (return value) yang bertipe integer. Jadi, ketika function ini dipanggil, akan dihasilkan sebuah nilai baru yang bertipe integer yang merupakan nomor indeks ‘Substring’ dalam string ‘S’. Jika substring yang dimaksud tidak ditemukan, maka nilai kembalian akan bernilai ‘0’.

Karena bersifat sebagai function, maka ‘Pos’ ini biasanya membutuhkan sebuah variabel untuk menampung nilai kembalian yang kemudian dapat dimanipulasi untuk proses selanjutnya. ‘Indeks’ sendiri bisa diartikan sebagai nomor urut karakter dimulai dari awal string. Untuk detailnya dapat Anda lihat pada gambar di bawah

 Jika ada script Delphi sebagai berikut :

Aindeks:= Pos (‘kaku’,S);  

maka Aindeks akan bernilai 19

Catatan : jika substring yang dicari tidak ditemukan, maka nilai kembalian yang dipanggil oleh function ‘Pos’ akan bernilai 0. Contoh dengan string ‘S’ sama dengan contoh di atas, maka

Aindeks:= Pos (‘nenek’,S);  —> Aindeks akan bernilai 0

Berikut ini adalah contoh implementasi function ‘Pos’ dalam Delphi :

Ambil komponen TButton, TEdit dan TMemo dari Component Pallete, kemudian atur sedemikian rupa di Form seperti gambar di bawah

Kemudian double click tombol ‘Button1’ dan isikan source code sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

var Aindeks:integer;

begin

 Aindeks:=pos(‘kaku’,memo1.text);

 edit1.Text:=inttostr(Aindeks);

end;

Running program di atas (tekan F9), kemudian isikan kotak memo1 dengan string ‘Kuku kaki kakekku kaku kaku’. Setelah itu tekan tombol ‘Button1’ dan amati perubahan angka di kotak ‘Edit1’.

2. Function ‘PosEx’

Bersambung ….

3. Function ‘Copy’

Bersambung …..