Mendapatkan/menampilkan daftar folder dan sub foldernya dalam File txt

Seringkali ketika menginstall komponen di delphi, kita diharuskan mengikutkan daftar folder dimana file-file sumber (.pas) dari komponen tersebut ke dalam library path. Apabila paket komponennya tidak terlalu besar sih.. nggak masalah, atau apalagi kalau sudah dipaket dalam bentuk installer siap jalan seperti komponen JEDI.

Namun bagaimana jika paket komponen tersebut sangat banyak yang file-file sumbernya disimpan di banyak folder seperti komponen DevExpress, dan komponen didistribusikan tidak dalam bentuk installer? Tentunya copy paste berulangkali menjadi sangat melelahkan dan membosankan. Atau, lebih parahnya lagi, karena kita harus menginstall Delphi kembali disebabkan windowsnya ngadat? Tentunya pekerjaan copy paste folder dan subfolder ini menjadi hal yang mengerikan.

Nah, kita dapat mendapatkan daftar dari folder dan sub foldernya dari suatu direktori kemudian menyimpannya dalam suatu file txt dengan memanfaatkan command prompt windows. Yakni dengan mengetikkan perintah

dir /s /ad /b>filelist.txt

 pada command prompt windows, seperti dalam contoh berikut:

pada contoh screenshot di atas, saya mendapatkan hasil

D:\master\Component Delphi\ZEOSDBO-6.6.6-stable\src\component
D:\master\Component Delphi\ZEOSDBO-6.6.6-stable\src\core
D:\master\Component Delphi\ZEOSDBO-6.6.6-stable\src\dbc
D:\master\Component Delphi\ZEOSDBO-6.6.6-stable\src\parsesql
D:\master\Component Delphi\ZEOSDBO-6.6.6-stable\src\plain

patut dicoba neh!

Membuat Dropdownlist Pencarian Professional

Bagaimana kita membuat tampilan dropdown list yang pada daftarnya, menampilkan warna berbeda pada deretan huruf yang sesuai input pencarian?

Tentunya kita sering melihat tampilan dropdown atau combobox yang menampilkan daftar hasil dengan memberikan warna berbeda pada deretan huruf yang sesuai dengan pencarian. Nah, bagaimana hal itu bisa kita buat dengan dengan Delphi, sehingga aplikasi kita bisa terlihat lebih professional? Kita bisa membuatnya dengan memanfaatkan gabungan komponen TEdit, TListBox, dan TTimer.

TEdit berfungsi sebagai inputan, kata pencarian.

TTimer properti Enabled di set False, berfungsi memberikan delay saat kata pencarian diinputkan pada komponen TEdit, sehingga mengurangi akses ke database yang jika terlalu sering membuat respon aplikasi kita berkurang.

TListBox berfungsi menampilkan hasil pencarian dari database, setelah inputan kata dimasukkan pada komponen TEdit. Properti Style kita set menjadi lbOwnerDrawVariable, karena kita hendak menggambar sendiri penulisan item sehingga bisa kita set menjadi warna warni.

Dalam hal ini, saya menggunakan database Access (.mdb) dengan komponen ADO. Tabel yang diakses adalah tabel santri (santri saya yang culun2, and rada ndablek)

Alur logika sangat sederhana. Ketika user mengetikkan deretan karakter, maka event onkeypress pada TEdit langsung dijalankan. Dimana, didalamnya terdapat perintah untuk mengaktifkan timer.
Ketika timer berjalan, dia akan mengecek, apakah deretan karakter yang dimasukkan seperti sesudahnya atau tidak? Jika tidak maka query di database dijalankan.

Hasil query dimasukkan dalam Item TListBox, Height ListBox disesuaikan banyaknya item, terus ListBox ditampilkan.

Event OnKeyPress juga memerintahkan refresh pada komponen TListBox, hal ini penting, agar Event OnDrawItem pada ListBox dijalankan.

Pada Event OnDrawItem inilah, warna deretan huruf yang bersesuaian dengan inputan pada TEdit diberi warna merah.

Gitu aja deh.

Donwload Source & Executable