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

2019-11-18 18:55:29

字體：大中小

供稿：網(wǎng)友

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

上一篇：用Delphi在工業(yè)控制和自動(dòng)化實(shí)現(xiàn)多線程進(jìn)行數(shù)據(jù)采集

下一篇：DELPHI下調(diào)節(jié)器用EXCEL為其編輯和打印

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注