Buat Fungsi Mid String

Bagi yang sudah terbiasa otak-atik bahasa pemrograman terutama Delphi mungkin sudah tidak asing lagi menggunakan fungsi yang satu ini.

Apa fungsi dari Mid String itu sebenarnya ?

Ya, fungsi di atas digunakan untuk mengambil karakter dari string.
Misal :

Terdapat sebuah kalimat PEMROGRAMAN, di sini kita akan mengambil 3 huruf dari sebelah kanan,tengah atau kiri kalimat.
Misalnya kita deklarasikan seperti berikut :

edit2.Text := MidStr(edit1.Text,2,1);

keterangan :

edit2 = hasil
edit1 = input
2     = urutan ke 2
1     = jumlah yang diambil

// PEMOGRAMAN hasilnya E

Untuk uji coba silakan :

function MidStr
(const Str:string; From, Size:Word) : string;
begin
MidStr := Copy(Str,From,Size)
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
edt2.Text := MidStr(edt1.Text,2,1);  // Artinya diambil di Urutan ke 2 cuman 1 yang diambil
edt3.Text := MidStr(edt1.Text,1,2);  // diambil di urutan pertama sebanyak 2 digit
edt4.Text := MidStr(edt1.Text,5,1);  // diambil di urutan ke 5 dst sebanyak 1 digit
end;

Sumber Artikel : ► http://apapun-itu.com

---

Semoga membantu dan bermanfaat bagi anda semua. Saya ucapkan terima kasih karena sudah berkunjung ke blog yang sederhana ini.