Delphi實用編程經驗二

2019-11-18 18:55:29

字體：大中小

來源：轉載

供稿：網友

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;   (陜西楊波)

上一篇：用Delphi在工業控制和自動化實現多線程進行數據采集

下一篇：DELPHI下調節器用EXCEL為其編輯和打印