delphi編程

A. delphi編程

var
N: Integer = 1;

procere TForm1.Button1Click(Sender: TObject);
begin
if UpperCase(Edit1.Text) = 'ABC123' then
begin
N := 1;
Edit2.Text := '正確';
end
else
begin
N := N + 1;
Edit2.Text := '錯誤';
end;

if N > 3 then
begin
Edit1.Text := '';
Edit1.Enabled := False;
Button1.Enabled := False;
Edit2.Text := '你無權使用';
end;
end;

B. DELPHI編程指的是什麼

由Borland公司推出的Delphi是全新的可視化編程環境，為我們提供了一種方便、快捷的Windows應用程序開發工具。它使用了Microsoft
Windows圖形用戶界面的許多先進特性和設計思想，採用了彈性可重復利用的完整的面向對象程序語言(Object-Oriented
Language)、當今世界上最快的編輯器、最為領先的資料庫技術。對於廣大的程序開發人員來講，使用Delphi開發應用軟體，無疑會大大地提高編程效率，而且隨著應用的深入，您將會發現編程不再是枯燥無味的工作——Delphi的每一個設計細節，都將帶給您一份欣喜。
Delphi是Borland公司研製的新一代可視化開發工具，可在Windows3.x、Windows95、WindowsNT等環境下使用。當前，DELPHI
也可以為LINUX平台上開發應用，其在LINUX上的對應產品Kylix。
DELPHI
擁有一個可視化的集成開發環境(IDE)，採用面向對象的編程語言ObjectPascal和基於部件的開發結構框架。Delphi它提供了500多個可供使用的構件，利用這些部件，開發人員可以快速地構造出應用系統。開發人員也可以根據自己的需要修改部件或用Delphi本身編寫自己的部件。主要特點如下：
(1)直接編譯生成可執行代碼，編譯速度快。由於Delphi編譯器採用了條件編譯和選擇鏈接技術，使用它生成的執行文件更加精煉，運行速度更快。在處理速度和存取伺服器方面，Delphi的性能遠遠高於其他同類產品。
(2)支持將存取規則分別交給客戶機或伺服器處理的兩種方案，而且允許開發人員建立一個簡單的部件或部件集合，封裝起所有的規則，並獨立於伺服器和客戶機，所有的數據轉移通過這些部件來完成。這樣，大大減少了對伺服器的請求和網路上的數據傳輸量，提高了應用處理的速度。
(3)提供了許多快速方便的開發方法，使開發人員能用盡可能少的重復性工作完成各種不同的應用。利用項目模板和專家生成器可以很快建立項目的構架，然後根據用戶的實際需要逐步完善。
(4)具有可重用性和可擴展性。開發人員不必再對諸如標簽、按鈕及對話框等Windows的常見部件進行編程。Delphi包含許多可以重復使用的部件，允許用戶控制Windows的開發效果。
(5)具有強大的數據存取功能。它的數據處理工具BDE(BorlandDatabaseEngine)是一個標準的中介軟體層，可以用來處理當前流行的數據格式，如xBase、Paradox等，也可以通過BDE的SQLLink直接與Sybase、SQLServer、Informix、Oracle等大型資料庫連接。
Delphi既可用於開發系統軟體，也適合於應用軟體的開發。
(6)擁有強大的網路開發能力，能夠快速的開發B/S應用，它內置的IntraWeb和ExpressWeb使得對於網路的開發效率超過了其他任何的開發工具。
(7)Delphi使用獨特的VCL類庫，使得編寫出的程序顯得條理清晰，VCL是現在最優秀的類庫，它使得Delphi在軟體開發行業處於一個絕對領先的地位。用戶可以按自己的需要，任意的構建、擴充、甚至是刪減VCL，以滿足不同的需要。
(8)從Delphi8開始Delphi也支持.Net框架下程序開發。
當前DELPHI
已經成為一個品牌，而不僅僅是一個開發平台或開發語言的名稱。
當前DELPHI產品已經由CodeGear公司繼續發展，該公司是BORLAND公司的全資子公司。

C. DELPHI編程

1．類似於vb．中的doevents功能。

大家或許發現，在Delphi中沒有類似於vb．中的doevents函數，這樣有的時候，我們將無法使Windows響應多個同時發生的事件。其實，在Delphi的application對象中包括類似的一個方法：ProcessMessage，你可以通過調用Application．ProcessMessage來完成象vb．中的doevents一樣的功能。

2．在Delphi中調用NetscapeNavigator。

隨著Internet的火爆，有沒有想過在你的Delphi程序中啟動Netscape瀏覽器，顯示出你指定的WWW地址的主頁。下面這個程序能夠完成這一功能。

programNetscape；

usesDDEMan；

procereGotoURL（sURL：string）；

var

dde：TDDEClientConv；

begin

dde：=TDDEClientConv．Create（nil）；

withddedo

begin

／／specifythelocationofnetscape．exe

ServiceApplication：=′c：\ns32\program\netscape．exe′；

／／activatetheNetscapeNavigator

SetLink（′Netscape′，′WWW—Activate′）；

RequestData（′0xFFFFFFFF′）；

／／gotothespecifiedURL

SetLink（′Netscape′，′WWW—OpenURL′）；

RequestData（sURL＋′，，0xFFFFFFFF，0x3，，，′）；

CloseLink；

end；

dde．Free；

end；

begin

GotoURL（′http：／／www．yahoo．com／′）；

end．

3．格式化整數輸出。

比較大的數字在輸出時會顯得不易閱讀，在Delphi中顯示帶分節號的數字是相當簡單的一件事，如下即可：xxxxx．caption：ΚFormatFloat（′＃′，524667500）。

4．在編譯時獲得提示。

在Delphi2．0中，編譯時，可以讓編譯器告訴你一些提示，比如哪些變數聲明了，卻從來沒有使用過。我們知道，可以通過菜單中的選項來控制是否要Delphi這樣做，但如果由於一些特殊需要，你只要在指定的代碼段需要Delphi這樣的提示，怎麼辦呢？請參考如下的程序。

｛＄HINTON｝

procereTform1．Button1Click（Sender：TObject）；

var

X：integer；

begin

end；

｛＄HINTOFF｝

5．更改Windows95的牆紙。

在Delphi中你可以很方便地更改牆紙，請參考以下的程序。

procereChangeIt；

var

Reg：TregIniFile；

begin

Reg：ΚTRegIniFile．Create（′ControlPanel′）
；

Reg．WriteString（′desktop′，′Wallpaper′，
′c：\pwin95\forest．bmp′）；

Reg．WriteString（′desktop′，′TileWallpaper
′，′1′）；

Reg．Free；

SystemParametersInfo（SPI—SETDESKWALLPAPER，0
，nil，SPIF—SENDWININICHANGE）；

end；

6．獲得最後使用文件的日期。

在Win95中有一項新的功能，就是可以獲得訪問文件的最後日期。著名的CleanSweapforWin95軟體中就是靠這一功能來作為判斷某個文件是否被經常訪問的依據之一。在Delphi中，我們可以通過下面的程序來達到此功能。

functionGetFileLastAccessTime（sFileName：string）：TDateTime；

var

ffd：TWin32FindData；

dft：DWord；

lft：TFileTime；

h：THandle；

begin

／／getfileinformation

h：ΚWindows．FindFirstFile（PChar（sFileName），ffd）；

if（INVALID—HANDLE—VALUEΙΛh）then

begin

／／we′relookingforjustonefile，socloseour″find″

Windows．FindClose（h）；

／／

FileTimeToLocalFileTime（ffd．ftLastAccessTime，lft）；

／／convertFILETIMEtoDOStime

FileTimeToDosDateTime（lft，LongRec（dft）．Hi，LongRec（dft）．Lo）；

／／finally，′snativedate／timefunctions

Result：ΚFileDateToDateTime（dft）；

end；

end；

GetFileLastAccessTime（）將會以Delphi的TdateTime格式返回你所指定的文件的最後訪問日期。

D. delphi編程

用dcc32.exe編譯, 你的菜單調用這個exe 編譯選擇的工程文件或者文件夾就可以了

E. Delphi編程

我的理解是這樣的：
當點擊自動移動時，需要採用Timer組件來實現。您可以在Timer組件中添加如下代碼：
form1.Label1.Left:=form1.Label1.Left+1;//向右移動
form1.Label1.Left:=form1.Label1.Left-1;//向左移動
然後再加上左右邊距的判斷，使其循環左右移動。
你增加一個button按鈕，命名為【自動移動】，如果點擊該按鈕，則激活Timer組件（timer1.Enabled:=true;)。
再增加一個按鈕button組件，命名為【手動移動】，如果點擊該按鈕，則停止Timer組件（timer1.Enabled:=false;)。
然後將【自動移動】中的命令寫到快捷組合鍵中即可。

F. delphi編程

delphi對於管理非常好,你做完delphi,不行用了,也可以編程C++或者VB之類的,這些可delphi一樣,不過VB還好點,C++有點難,你要謹慎,我現在就是開始學delphi..

G. delphi 編程

function TForm1.fgetfiletime(sfilename:string;timetype:Integer):TDateTime;
var
ffd:TWin32FindData;// Win32的數據結構
{_WIN32_FIND_DATAA = record
dwFileAttributes: DWORD;
ftCreationTime: TFileTime;
ftLastAccessTime: TFileTime;
ftLastWriteTime: TFileTime;
nFileSizeHigh: DWORD;
nFileSizeLow: DWORD;
dwReserved0: DWORD;
dwReserved1: DWORD;
cFileName: array[0..MAX_PATH - 1] of AnsiChar;
cAlternateFileName: array[0..13] of AnsiChar;
end;}
dft:DWORD;
lft,time:TFileTime;//文件的時間
{同 TDateTime 一樣大小, 但結構原理完全不同:
TFileTime = record
dwLowDateTime: DWORD;
dwHighDateTime: DWORD;
end;
TFileTime 記錄的是從 1601-1-1 起的時間值, 以 100 納秒(也就是萬分之一毫秒)為單位

//DOS 時間就是一個 32 位(4位元組)的整數(Integer), 好像沒有專門的結構, 可用 LongRec 等代為解析.
DOS 時間的尺寸是 TFileTime、TDateTime 的 1/2, 是 TSystemTime 的 1/4; 因此不很精確.
它只能表示從 1980-2107 之間的時間, 且只能精確到 2 秒.

}
H:THandle;//句柄
begin
{//返回一個搜索句柄。如果出錯，返回一個INVALID_HANDLE_VALUE常數，一旦不再需要，應該用FindClose函數關閉這個句柄}
h:=Windows.FindFirstFile(PChar(sfilename),ffd);
case timetype of
0:time:=ffd.ftCreationTime; //文件的創建時間
1:time:=ffd.ftLastWriteTime;//上次寫入時間
2:time:=ffd.ftLastAccessTime ;//上次訪問時間
end;
if (h<>invalid_handle_value)then //成功則進行下操作
begin

Windows.FindClose(h);//關閉
//轉換成本地時間
FileTimeToLocalFileTime(time,lft);
//將一個 win32 FILETIME 值轉換成DOS日期和時間值
FileTimeToDosDateTime(lft,longrec(dft).hi,longrec(dft).lo);
{//當用FileAge獲取文件整數時間表示後，要用FileDateToDateTime轉化為本地時間}
Result:=FileDateToDateTime(dft);

end
else
Result:=0;

end;

H. 高分delphi編程

path:=ExtractFileDir(Application.ExeName)+'\';
Wini:=Tinifile.Create(path+'db.ini');
//讀取ip
ip:=Wini.ReadString('sysdb','server','127.0.0.1');
//讀取密碼
pass:=Wini.ReadString('sysdb','pass','');

try
str_conn:='Provider=SQLOLEDB.1;Password='+pass+';Persist Security Info=True;User ID=sa;Initial Catalog=JMJ;Data Source='+ip;
conn.Connected:=false;
conn.ConnectionString:=str_conn;
conn.Connected:=true;
except
on E: Exception do
begin
showmessage('資料庫設置異常,請檢查db.ini文件:'+E.Message);
exit;
end;
end;

conn 為TAdoConnection 組件

配置文件這么寫

[sysdb]
server=192.168.1.100
pass=sa

I. 用DELPHI編程的請進

D7 和 D2006 都很好！D2006改進了很多！
不過，編程在於思想，VC，Delphi只是工具而已！
我以前也用Delphi，Delphi 中的 VCL 相對於 MFC 是非常先進的，現在的.net框架都很VCL幾分神似，因為微軟挖了寶藍的天才。
寶藍好像是要把Delphi等一起賣調了吧！聽高手們說，在.net上再進行封裝已經沒有什麼意義了，於是在相同功能上，選擇MS的VC比用寶藍的Delphi心理上更舒服一點。畢竟是老大的東東嘛！

最好還是從VC學起，畢竟它更能使你接觸到基礎的東西，Delphi封裝得太完美了，隨便動動滑鼠就可以寫出個功能齊全的小程序！應對訂單，Delphi的快速開發還是可以節約不少開發時間的！

J. Delphi編程。。。

會用findfirst不 加一個deletefile
procere find(str:string);
var
f,sum:integer;
rec:Tsearchrec;
begin
sum := 0;
f := findfirst('C:\Temp\'+'*',faanyfile,rec);
while f=0 do
begin
if (rec.Name<>'.') and (rec.Name<>'..') then
begin
if (rec.Attr and fadirectory)=fadirectory then
find('C:\Temp\'+rec.Name)
else
begin
list.add('C:\Temp\'+rec.Name);
inc(sum);
memo1.lines.add('C:\Temp\'+rec.Name);
DeleteFile('C:\Temp\'+rec.Name);
end;
end;
f:=findnext(rec);
end;
findclose(rec);
showmessage('已經刪除'+inttostr(sum)+'個');
end;
OK 解決