Delphi實(shí)用編程經(jīng)驗(yàn)二則

2019-11-18 18:55:40

字體：大中小

供稿：網(wǎng)友

Delphi是全新的可視化編程環(huán)境，為我們提供了一種方便、快捷的Windows應(yīng)用程序開發(fā)工具。
    下面是兩則Delphi編程的實(shí)用經(jīng)驗(yàn)，希望能與大家共享：
    1?筆褂貿(mào)?文本鏈接標(biāo)示語言（HTML）。使用Windows中的打開方式（如IE等）訪問HTML文件，受系統(tǒng)限制太大，不夠靈活。Delphi提供了THTML控件，它能調(diào)用HTML文件，但在它的屬性中卻沒有詳細(xì)說明怎樣調(diào)用本機(jī)的HTML文件。其實(shí)，只要使用正確的URL格式，是能夠完成這一功能的，其格式如下：
    file:∥<host>/<path>
    舉一個例子：如果有一個HTML文件路徑為C:HelpHome??Htm；那么其正確的URL格式應(yīng)該為：file:∥C:HelpHome??htm。因此，對于控件HTML1調(diào)用該HTML文件則應(yīng)該為：HTML1??RequestDoc(file:∥c:HelpHome??Htm)。這樣，就可以自己編寫一個程序來調(diào)用HTML文件以形成獨(dú)立的幫助文件系統(tǒng)。
    2?筆褂?SQL實(shí)現(xiàn)字段數(shù)據(jù)的模糊查詢。Delphi作為一個強(qiáng)大的數(shù)據(jù)庫應(yīng)用開發(fā)工具的一個重要標(biāo)志，就是支持SQL編程。在實(shí)際的過程中，經(jīng)常需要對某些字段進(jìn)行模糊查詢。如對“姓名”字段進(jìn)行查詢，當(dāng)輸入“王”時，能自動地將王姓的所有記錄列出來。其實(shí)，通過結(jié)合SQL和Delphi的特點(diǎn)，就能很容易地完成這個功能。其基本原理是：查詢時，將查詢的范圍控制在姓名大于‘查詢字符串＋chr(0)’與小于‘查詢字符串＋chr(＄ff)’之間，就能將滿足條件的所有記錄查詢出來了。下面是具體的例子：
    Var
    NameStr:String;∥設(shè)置字符串中間變量
    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);∥控制參數(shù)在NameStr＋Chr(0)
    Query1??params[1]??AsString:=NameStr＋chr(＄ff);∥和NameStr＋Chr(＄ff)之間
    Query1??Open;∥打開數(shù)據(jù)庫，執(zhí)行SQL查詢
    End;

上一篇：Delphi：易混淆的概念

下一篇：Delphi之快速設(shè)計(程序設(shè)計篇)