Delphi實用編程經驗二則

Delphi是全新的可視化編程環境，為我們提供了一種方便、快捷的Windows應用程式開發工具。     下面是兩則Delphi編程的實用經驗，希望能與大家共用：     1使用超文本連結標示語言（HTML）。使用Windows中的開啟檔案（如IE等）訪問HTML檔案，受系統限制太大，不夠靈活。Delphi提供了THTML控制項，它能調用HTML檔案，但在它的屬性中卻沒有詳細說明怎樣調用原生HTML檔案。其實，只要使用正確的URL格式，是能夠完成這一功能的，其格式如下：     file:∥<host>/<path>     舉一個例子：如果有一個HTML檔案路徑為C:/Help/HomeHtm；那麼其正確的URL格式應該為：file:∥C:/Help/Homehtm。因此，對於控制項HTML1調用該HTML檔案則應該為：HTML1RequestDoc(file:∥c:/Help/HomeHtm)。這樣，就可以自己編寫一個程式來調用HTML檔案以形成獨立的協助檔案系統。     2使用SQL實現欄位資料的模糊查詢。Delphi作為一個強大的資料庫應用開發工具的一個重要標誌，就是支援SQL編程。在實際的過程中，經常需要對某些欄位進行模糊查詢。如對“姓名”欄位進行查詢，當輸入“王”時，能自動地將王姓的所有記錄列出來。其實，通過結合SQL和Delphi的特點，就能很容易地完成這個功能。其基本原理是：查詢時，將查詢的範圍控制在姓名大於‘查詢字串＋chr(0)’與小於‘查詢字串＋chr(＄ff)’之間，就能將滿足條件的所有記錄查詢出來了。下面是具體的例子：     Var     NameStr:String;∥設定字串中間變數     Begin     NameStr:=′王′；     Query1SQLClear{清除SQL屬性中的SQL命令語句}     Query1SQLAdd(′Select＊FromCustomdbwhere(Name1>=N1)and(Name2<=N2)′);∥SQL命令語句     Query1params[0]AsString:=NameStr＋chr(0);∥控制參數在NameStr＋Chr(0)     Query1params[1]AsString:=NameStr＋chr(＄ff);∥和NameStr＋Chr(＄ff)之間     Query1Open;∥開啟資料庫，執行SQL查詢     End;