Delphi實用程式設計經驗二 (轉)

Delphi實用程式設計經驗二 (轉)[@more@]

  是全新的視覺化環境，為我們提供了一種方便、快捷的應用開發工具。
  下面是兩則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?使用實現欄位資料的模糊查詢。Delphi作為一個強大的應用開發工具的一個重要標誌，就是支援SQL程式設計。在實際的過程中，經常需要對某些欄位進行模糊查詢。如對“姓名”欄位進行查詢，當輸入“王”時，能自動地將王姓的所有記錄列出來。其實，透過結合SQL和Delphi的特點，就能很容易地完成這個功能。其基本原理是：查詢時，將查詢的範圍控制在姓名大於‘查詢字串＋chr(0)’與小於‘查詢字串＋chr(＄ff)’之間，就能將滿足條件的所有記錄查詢出來了。下面是具體的例子：
  Var
  NameStr:String;∥設定字串中間變數
  Begin
  NameStr:=′王′；
  Query1?SQL?Clear{清除SQL屬性中的SQL命令語句}
  Query1?SQL?Add(′＊FromCustom?where(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;  (陝西 楊波)