Random post

Tuesday, January 9, 2018

√ Fungsi Leftstr, Midstr, Rightstr Di Delphi

Fungsi ini dipakai untuk mengambil huruf dari sebuah value, LefStr dipakai untuk mengambil huruf dari sebelah kiri, MidStr dipakai untuk mengambil huruf yang ada di tengah, RightStr untuk mengambil huruf dari sebelah kanan.

Berikut ini yaitu penulisan syntax-nya:
LeftStr(OBJECT, banyaknya huruf yang diambil)
MidStr(OBJECT, huruf mulai mengambil, banyaknya huruf yang diambil)
RightStr(OBJECT, banyaknya huruf yang diambil)
Contoh, diketahui sebuah komponen DateTimePicker1 memilliki tanggal 12/10/2015, kita ingin mengambil tanggal (saya contohkan tanggal = 12), bulan (saya contohkan bulan = 10), dan tahun (saya contohkan tahun = 2015) yang didapat dari tanggal komponen DateTimePicker1.
Lihat posisi 12 ada di sebelah kiri maka disini kita sanggup gunakan fungsi LeftStr, posisi 10 ada di tengah maka kita gunakan MidStr, dan posisi 2015 ada di kanan sehingga kita sanggup memakai RightStr.

 - Contoh penggunaan LeftStr:
    Syntax: LeftStr(DateTimePicker1.date,2)
    Maka hasil dari syntax di atas yaitu 12
 - Contoh penggunaan LeftStr:
    Syntax: LeftStr(DateTimePicker1.date,4,2)
    Maka hasil dari syntax di atas adalah10
 - Contoh penggunaan LeftStr:
    Syntax: LeftStr(DateTimePicker1.date,4)
    Maka hasil dari syntax di atas yaitu 2015

Catatan: Sebelum anda sanggup memakai fungsi ini anda harus terlebih dulu menambahkan reserverd word "StrUtils" (tanpa tanda kutip) di bawah USES.

Sumber http://farihinmuhamad.blogspot.com