Fungsi LeftStr, MidStr, RightStr di Delphi

Farihin Muhamad
1
Fungsi ini digunakan untuk mengambil karakter dari sebuah value, LefStr digunakan untuk mengambil karakter dari sebelah kiri, MidStr digunakan untuk mengambil karakter yang ada di tengah, RightStr untuk mengambil karakter dari sebelah kanan.

Berikut ini adalah penulisan syntax-nya:
LeftStr(OBJECT, banyaknya karakter yang diambil)
MidStr(OBJECT, karakter mulai mengambil, banyaknya karakter yang diambil)
RightStr(OBJECT, banyaknya karakter 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 bisa gunakan fungsi LeftStr, posisi 10 ada di tengah maka kita gunakan MidStr, dan posisi 2015 ada di kanan sehingga kita dapat menggunakan RightStr.

 - Contoh penggunaan LeftStr:
    Syntax: LeftStr(DateTimePicker1.date,2)
    Maka hasil dari syntax di atas adalah 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 adalah 2015

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

Post a Comment

1Comments

  1. mantap vrooo, ane ketinggalan StrUtils ternyata #wkwkwk :'v <curcol
    #Lanjutkan

    ReplyDelete
Post a Comment