---------------------------------------------------------------------------------
黑鷹基地教程
黑鷹基地www.3800cc.com
專業的黑客安全技術培訓基地



多抽出一分鐘時間學習.讓你的生命更加精彩. 
---------------------------------------------------------------------------------
                            DelPhi7教程之菜鳥先飛版
                                          -----幫你打通任督二脈 （第1式）


     大家好,很多人對程序設計,都認為是遙不可及、深不可測的,只知道很多黑客軟件,游戲外掛,等計算
機程序都是用這個寫成,想學,但又不知道如何下手,今天我帶大家一起來學習DelPhi,高手就別來了.此教程
只限于菜鳥學習,還請高手多多指教,我也是個菜鳥,和很多人一樣.只希望和大家一起共同進步,
好吧,廢話就別說了,我們現在開始.
 
     我們這里所用到的是Delphi 7 現在已經有新的版本了,基于習慣這里還是用這個,它是Borland公司
推出的一款可以在WINdows環境下運行的面向對象的編程軟件,它的特性主要表現在.NET支持,對建模的支
持,新的第三方組件與工具,新的XP主題,編輯器......這里就不一一說了,慢慢的就會知道它的好處.

     關于如何安裝Delphi 這里也就不介紹了.相信大家有能力搞定的,如果沒有軟件的朋友可以去網上
搜索,很多的.也可以買一張..
   
     大家可以自己先認識一下Delphi的集成開發環境,了解在集成開發環境中主窗口,菜單欄,組件欄,對
象樹狀列表,對象編輯器,窗體設計器,代碼編輯器,工程管理器的功能,我們會在例子中講到.

這里我就不詳細講了。老機子 卡得很。。。還在下載東西。網又慢。55555555。不多說了。免得耽擱時間
    下面進入今天的主題..
 
    Delphi 創建WINdows應用程序一般步驟:
1.需求分析和總統設計
2.代碼開發與程序調試
3.投入運行與程序理解       (希望大家能明白我講的意思  ^-^ )
 
   關鍵是代碼的開發,其他也不能忽視
 代碼開發和程序調試指的就是:
1.程序窗體的設計    2.程序代碼的設計   3.編譯和調試程序

下面我們一起動手來開發一個小程序,功能很簡單,主要讓大家了解程序設計的過程,細節問題以后慢慢講
結合上面的步驟1先需求分析和總統設計,我們這個程序是用于計算成績,輸入各科成績,點擊[計算]后得到
各科成績的總分和平均分.
 下面開始我們代碼開發與程序調試之旅:  (看我操作)

啟動Delphi。我已經啟動好了。。。
1.創建一個新的工程
一般運行Delphi后程序會自動創建一個新的工程,如沒有可以手動,也可以通過[工具] | [環境選項]來
設置.
2.程序窗體設計 
⑴放置組件:這里我們用到6個編輯框組件,6個標簽框組件,1個按鈕組件.
可以點一下放一個,也可以按住[Shift]鍵,選中組件,然后在新建的工程中單擊,單擊一次為一個.創建完
后只要單擊組件面板中左邊的箭頭圖標便可取消選擇,用同樣的方法把需要的組件創建完

⑵排列組件:單擊鼠標右鍵選擇 [Position] | [對齊] 來調整,主要是為了見面的美觀?？梢愿鶕W格來。
完成后。。

⑶鎖定組件:選擇菜單欄 [編輯] | [鎖住控鍵]  

⑷設置窗體和組件的屬性:
Form1            Caption         成績計算器
Button1          Caption           計 算
label1           Caption           語 文
Edit1            text            (設置為空)
label2           Caption           數 學 
Edit2            text            (設置為空)
label3           Caption           外 語
Edit3            text            (設置為空)
label4           Caption           其 他
Edit4            text            (設置為空)
label5           Caption           總 分 
Edit5            text            (設置為空)
label6           Caption           平均分
Edit6            text            (設置為空)

調整好后。便可以。。編寫代碼了。。。

3.編寫程序代碼
⑴定義事件處理過程:選擇Button1([計算])按鈕,在對象查看器中選擇Events 頁 選中OnClick事件右邊的
編輯欄,則自動填入Button1Click,同時代碼編輯器被激活,會自動生成OnClick事件的過程代碼框架.可以
在這個框架中添加代碼

⑵添加代碼:先定位事件處理過程.雙擊Button1([計算])按鈕便可找到位置..在添加事件處理代碼,
代碼如下:
procedure TForm1.Button1Click(Sender: TObject);
var
 s1m,acer:double;                          //定義名稱
begin
 s1m:=strtofloat(Edit1.text)+strtofloat(Edit2.text)
      +strtofloat(Edit3.text)+strtofloat(Edit4.text);          //s1m為 總分 所以這里用加法
 acer:=s1m/4;                                                 //acer為 平均分 所以這為除法
 Edit5.Text :=floattostr(s1m);
 Edit6.text :=floattostr(acer);                         // 顯示

end;


我這里就直接復制上去的，大家最好是打上去。習慣一下。。有好處的。我是為了節約時間

4.編譯和運行程序
可以按[F9]
也可以。。點這個，他是編譯和運行一起的。。也可以。。。
這樣..屬于自己的一個程序就開發完成了...測試一下。。OK。。。
好卡啊。。。。出錯了。。。。在試一下。。運行好了。。算算。。OK。。GOOD。。
接下來我們介紹Delphi中的文件結構
下面是剛才開發的程序中的窗體對應的單元文件代碼
unit Unit1;               //單元頭  unit標志下面的代碼是一個單元,后面跟單元文件,擴展名為.pas

interface                  //標志單元接口部分開始,單元接口部分定義變量,類型,過程等,可以被其他
                             單元或程序的其他部分訪問.


uses                       //單元列表部分  uses語句告訴程序最終的執行代碼中需要哪個函數和過程
                                           會自動把一些必須的單元包括進去 如下面這些
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type                      // 這部分用來定義用戶自己的類型,此處定義一個TForm派生出的TForm1類
                              它包括了一個按鈕,6個標簽和6個編輯框,一個處理按鈕單擊時間的工程
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var                            //這部分用來定義變量和對象變量,也可以用來定義其他implementation
                                 部分的變量,工程,函數等.
  Form1: TForm1;

implementation                  //這部分定義所有在interface部分說明過的函數,過程等.

{$R *.dfm}                     //該語句把單元連接到窗體.dfm文件.刪除的話會發生編譯錯誤 

procedure TForm1.Button1Click(Sender: TObject);
var
 s1m,acer:double;
begin                            //執行部分
 s1m:=strtofloat(Edit1.text)+strtofloat(Edit2.text)
      +strtofloat(Edit3.text)+strtofloat(Edit4.text);
 acer:=s1m/4;
 Edit5.Text :=floattostr(s1m);
 Edit6.text :=floattostr(acer);

end;

end.            //用一個"." 來標志程序的結束
     

這些很關鍵,大家下來慢慢看...今天到這里就結束了。希望大家希望。。
       功力提升一層.(@_@)~~~~~~~~~~~HOHO。。。
           下1式我們介紹Object Pascal語言 

                                                             By   ︶殘酷De喜劇
                                                             QQ    5941998      
                                                         論壇ID    游戲而已     
                                                         E-Mail    ncliang@163.com