Delphi Guru

Untuk Mengetahui berapa lama waktu yang dibutuhkan untuk mengeksekusi suatu procedure bisa kita gunakan function GetTickCount. Apa fungsi GetTickCuunt? Baca sendiri helpnya ya, ini sudah saya copy-kan : Untuk Mengetahui berapa lama waktu yang dibutuhkan untuk mengeksekusi suatu procedure bisa kita gunakan function GetTickCount. Apa fungsi GetTickCuunt? Baca sendiri helpnya ya, ini sudah saya copy-kan : Retrieves the number of milliseconds that have elapsed since the system was started, up to 49.7 days. Bagaimana cara menggunakannya? Simple saja, yang harus kita lakukan hanya mencatat return value dari function GetTickCount sesaat sebalum procedure dieksekusi dan sesudahnya. Kemudian kita selisihkan hasilnya. Oya jangan lupa, hasil selisihnya adalah dalam satuan milliseconds , jika kita mengehendaki hailnya dalam satuan detik tinggal kita bagi dengan 1000. Lebih jelasnya silahkan algoritma berikut ini iAwal := GetTickCount; Eksekusi Procedure; iAkhir := GetTickCount; ...

OOP Kependekan dari Object Oriented Programming merupakan paradigma pemrograman yang berorientasikan kepada objek. Semua data dan fungsi di dalam paradigma ini dibungkus dalam kelas-kelas atau objek-objek. Bandingkan dengan logika pemrograman terstruktur. Setiap objek dapat menerima pesan, memproses data, dan mengirim pesan ke objek lainnya. OOP Kependekan dari Object Oriented Programming merupakan paradigma pemrograman yang berorientasikan kepada objek. Semua data dan fungsi di dalam paradigma ini dibungkus dalam kelas-kelas atau objek-objek. Bandingkan dengan logika pemrograman terstruktur. Setiap objek dapat menerima pesan, memproses data, dan mengirim pesan ke objek lainnya. Sebagai langkah awal untuk mempelajari OOP,berikut istilah - istilah yang akan banyak kita jumpai dalam belajar OOP * Kelas Kumpulan atas definisi data dan fungsi-fungsi dalam suatu unit untuk suatu tujuan tertentu. Sebagai contoh 'class of dog' adalah suatu unit yang terdiri atas definisi-defini...

Kadang, user menginginkan ketika dia klik ENTER maka kursor akan berpindah ke componet berikutnya. Ada beberapa cara, antar lain memakai coponent EnterAsTab (Silahkan Googling). Kadang, user menginginkan ketika dia klik ENTER maka kursor akan berpindah ke componet berikutnya. Ada beberapa cara, antar lain memakai coponent EnterAsTab (Silahkan Googling). Jika kita tidak bisa menemukan component tersebut, kita bisa akali sebagai berikut : Di method FormKeyDown tuliskan Script Berikut if Key = VK_RETURN then begin SelectNext(ActiveControl,True,True); end; Jangan lupa untuk mengeset properties KeyPreview dari form menjadi TRUE. Sebenarnya untuk component StringGrid ketika Enter harus pindah ke cell berkutnya, script di atas belum bisa , ada yang bisa menambahkan ? :) Selamat Mencoba

Kadang, kita dituntut untuk membuat aplikasi yang semua formnya mempunya component yang sama. Hal ini akan sangat melelahkann jika kita harus menempatkan semua component tersebut di tiap-tiap form. Kadang, kita dituntut untuk membuat aplikasi yang semua formnya mempunya component yang sama. Hal ini akan sangat melelahkann jika kita harus menempatkan semua component tersebut di tiap-tiap form. Dengan pemahaman OOP yang dasar saja, sebenarnya kita bisa mengakali kasus di atas, caranya dengan menerapkan konsep inheritance. Yang harus kita lakukan adalah : 1. Buat Form Default (form ini nanti yang menjadi pola bagifrom2 lain) 2. Klik Menu File > New > Other 3. Pilih tab project kita 4. Cari from default tadi, klik OK 5. Simpan dengan nama lain. Nah, kita sudah medapatkan form baru yang sama persis dengan from default. Jika ad perubahan di form default, maka otomatis form turunannya akan ikut berubah. Selamat Mencoba

Blog ini saya maksudkan untuk menuliskan uneg-uneg saya berkenaan dengan pemrograman delphi. Di sini saya akan mencoba menulis pengalaman saya selama +/- lima tahun berkutat dengan delphi.