用DELPHI的宏可以做一些非常簡便的工作, 它是記錄鍵盤的動作,如果我們將一些有規律的動作,用宏來進行操作,就可以達到事半功倍的效果,前提是編寫的代碼風格比較整潔.
宏是以Ctrl + Shift + R開始, 也以Ctrl + Shift + R結束, 以Ctrl + Shift + P來播放.
開始錄制宏后,可以在狀態欄看到 'Recording'字樣.
以下以Assign為例,來進行舉例
如下,我們的類中有一大堆的變量
    dno: string[20];
    dworker: string[4];
    ddate: TDateTime;
    dtrade_s: string[10];
    dtrade_e: string[10];
    dmoney_sale: Real;
    dMoney_last: Real;

    dmoney_ss: Real;
    dman: string[2];        //客層
    dmoney_SK: Real;          //收款
    dMoney_ZL: Real;          //找零
    Money_Mode: Real;         //現金支付金額
    Ticket_Mode: Real;        //購物券支付金額
    Czk_Mode: Real;           //儲值卡支付金額
    MZk_Mode: Real;          //面值卡支付金額
    Bank_Mode: Real;          //銀行卡支付金額
    dCard_Zk: string[20];     //打折卡卡號
    dCard_Hl: string[20];     //鴻利卡卡號
    dsubshop: string[4];
    dsalesman: string[4];          //營業員

我們想在Assign中,將它的值賦給一個ASource對象對應的值,如下.
例如:
PRocedure TMasterData.AssignValue(ASource: TMasterData);
begin
//想得到如下結果
  dno := ASource.dno;
  dworker := ASource.dworker;
  ddate := ASource.ddate;
  dtrade_s := ASource.dtrade_s;
  dtrade_e := ASource.dtrade_e;
  dmoney_sale := ASource.dmoney_sale;
  dMoney_last := ASource.dMoney_last;

我們該怎么辦呢,首先將聲明復制下來,形成如下
procedure TMasterData.AssignValue(ASource: TMasterData);
begin
      dno: string[20];
      dworker: string[4];
      ddate: TDateTime;
      dtrade_s: string[10];
      dtrade_e: string[10];
      dmoney_sale: Real;
      dMoney_last: Real;
    ....
這個時候,我們先將焦點放在 dno行的行首, 按Ctrl + Shift + R開始錄制,然后按Ctrl+->箭頭,光標會移到 dno這個單詞的前臺,再按Ctrl + Shift + ->,會選取dno: 這一小節,多了兩個字符怎么辦,按Shift + <-箭頭兩次,現在就完全選中了dno了,按Ctrl + C,復制, 接下后按->箭頭,再按<-箭頭 回到:前,再接下來,輸入 := ASource. 這幾個字母,再按Ctrl + V粘貼,現在就成了dno := ASource.dno: string[20]; 光標在第二個:前,我們再清除后面的字符,按Shift + End, 再按刪除鍵,這樣就完成了第一列,然后為了方便,我們將光標定位到第二行的行首, 向下箭上,再按Home鍵.
這就是我們所有的按鍵, 我們按Ctrl + shift + R結束錄制,再按 Ctrl + Shift+ P 來播放吧,非常酷吧
如果非常熟悉 delphi的宏,那么我們可以做出非常多的美妙的事情來,如我們在MSSQL中經常有
update a set dnum = b.dnum 這一類的東西,完全可以用delphi的宏來完成.

錄宏的要點,
1 一定要注意書寫代碼整潔的規律
2 多用ctrl + shift + ->箭頭來選擇單詞
3 所有的操作都必須要用鍵盤來完成,有什么不明白的可以和我聯系.聯系方法 qiubole@163.com

  dno := ASource.dno