Delphi是一個全新的視覺化程式設計環境,為我們提供了一個方便、快速的Windows應用程式開發工具。
以下是兩則Delphi程式設計的實用經驗,希望能與大家分享:
1?筆褂貿?文字連結標示語言(HTML) 。使用Windows中的開啟方式(如IE等)存取HTML文件,受系統限制太大,不夠靈活。 Delphi提供了THTML控件,它能呼叫HTML文件,但在它的屬性中卻沒有詳細說明如何呼叫本機的HTML檔案。其實,只要使用正確的URL格式,是能夠完成這項功能的,其格式如下:
file:∥<host>/<path>
舉一個例子:如果有一個HTML檔案路徑為C:HelpHome??Htm;那麼其正確的URL格式應該為:file:∥C:HelpHome??htm。因此,對於控制項HTML1呼叫該HTML檔案則應為:HTML1??RequestDoc(file:∥c:HelpHome??Htm)。這樣,就可以自己寫一個程式來呼叫HTML檔案以形成獨立的幫助檔案系統。
2?筆褂?SQL實作欄位資料的模糊查詢。 Delphi作為一個強大的資料庫應用開發工具的重要標誌,就是支援SQL程式設計。在實際的過程中,經常需要對某些欄位進行模糊查詢。如對「姓名」欄位進行查詢,當輸入「王」時,能自動地將王姓的所有記錄列出來。其實,透過結合SQL和Delphi的特點,就能輕易完成這個功能。其基本原理是:查詢時,將查詢的範圍控制在姓名大於'查詢字串+chr(0)'與小於'查詢字串+chr($ff)'之間,就能將滿足條件的所有記錄查詢出來了。下面是具體的例子:
Var
NameStr:String;∥設定字串中間變數
Begin
NameStr:=′王′;
Query1??SQL??Clear{清除SQL屬性中的SQL指令語句}
Query1??SQL??Add(′Select*FromCustom??dbwhere(Name1>=N1)and(Name2<=N2)′);∥SQL指令語句
Query1??params[0]??AsString:=NameStr+chr(0);∥控制參數在NameStr+Chr(0)
Query1??params[1]??AsString:=NameStr+chr($ff);∥和NameStr+Chr($ff)之間
Query1??Open;∥開啟資料庫,執行SQL查詢
End;