Delphi adalah lingkungan pemrograman visual baru yang memberi kita alat pengembangan aplikasi Windows yang nyaman dan cepat.
Berikut ini adalah dua pengalaman praktis dalam pemrograman Delphi yang ingin saya bagikan kepada Anda:
1. Bahasa markup tautan teks (HTML) . Menggunakan metode pembukaan di Windows (seperti IE, dll.) untuk mengakses file HTML terlalu dibatasi oleh sistem dan tidak cukup fleksibel. Delphi menyediakan kontrol THTML, yang dapat memanggil file HTML, namun propertinya tidak menjelaskan secara rinci bagaimana memanggil file HTML asli. Sebenarnya fungsi ini bisa dilakukan asalkan format URL yang digunakan benar.
file:∥<host>/<jalur>
Misalnya: Jika ada file HTML dengan path C:HelpHome??Htm; maka format URL yang benar adalah: file:∥C:HelpHome??htm. Oleh karena itu, memanggil file HTML untuk kontrol HTML1 seharusnya: HTML1??RequestDoc(file:∥c:HelpHome??Htm). Dengan cara ini, Anda dapat menulis program sendiri untuk memanggil file HTML untuk membentuk sistem file bantuan independen.
2. Gunakan SQL untuk mengimplementasikan kueri fuzzy data lapangan . Simbol penting Delphi sebagai alat pengembangan aplikasi database yang kuat adalah ia mendukung pemrograman SQL. Dalam proses sebenarnya, sering kali diperlukan untuk melakukan kueri fuzzy pada bidang tertentu. Misalnya, ketika menanyakan bidang "Nama", ketika "Wang" dimasukkan, semua catatan dengan nama keluarga Wang dapat dicantumkan secara otomatis. Faktanya, fungsi ini dapat dengan mudah dicapai dengan menggabungkan fitur SQL dan Delphi. Prinsip dasarnya adalah: saat membuat kueri, kendalikan cakupan kueri antara nama yang lebih besar dari 'string kueri + chr (0)' dan kurang dari 'string kueri + chr ($ff)', dan semua rekaman yang memenuhi ketentuan dapat ditanyakan. Berikut adalah contoh spesifiknya:
Var
NameStr:String;∥Set variabel perantara string
Mulai
NamaStr:='王';
Query1??SQL??Clear{Hapus pernyataan perintah SQL di atribut SQL}
Query1??SQL??Add(′Select＊FromCustom??dbwhere(Name1>=N1)and(Name2<=N2)′);∥Pernyataan perintah SQL
Query1??params[0]??AsString:=NameStr＋chr(0);∥Parameter kontrol ada di NameStr＋Chr(0)
Query1??params[1]??AsString:=NameStr+chr($ff); antara ∥ dan NameStr+Chr($ff)
Query1??Buka;∥Buka database dan jalankan query SQL
Akhir;