用DELPHI的宏可以做一些非常簡(jiǎn)便的工作, 它是記錄鍵盤(pán)的動(dòng)作,如果我們將一些有規(guī)律的動(dòng)作,用宏來(lái)進(jìn)行操作,就可以達(dá)到事半功倍的效果,前提是編寫(xiě)的代碼風(fēng)格比較整潔.
宏是以Ctrl + Shift + R開(kāi)始, 也以Ctrl + Shift + R結(jié)束, 以Ctrl + Shift + P來(lái)播放.
開(kāi)始錄制宏后,可以在狀態(tài)欄看到 'Recording'字樣.
以下以Assign為例,來(lái)進(jìn)行舉例
如下,我們的類(lèi)中有一大堆的變量
    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;         //現(xiàn)金支付金額
    Ticket_Mode: Real;        //購(gòu)物券支付金額
    Czk_Mode: Real;           //儲(chǔ)值卡支付金額
    MZk_Mode: Real;          //面值卡支付金額
    Bank_Mode: Real;          //銀行卡支付金額
    dCard_Zk: string[20];     //打折卡卡號(hào)
    dCard_Hl: string[20];     //鴻利卡卡號(hào)
    dsubshop: string[4];
    dsalesman: string[4];          //營(yíng)業(yè)員

我們想在Assign中,將它的值賦給一個(gè)ASource對(duì)象對(duì)應(yīng)的值,如下.
例如:
PRocedure TMasterData.AssignValue(ASource: TMasterData);
begin
//想得到如下結(jié)果
  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;

我們?cè)撛趺崔k呢,首先將聲明復(fù)制下來(lái),形成如下
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;
    ....
這個(gè)時(shí)候,我們先將焦點(diǎn)放在 dno行的行首, 按Ctrl + Shift + R開(kāi)始錄制,然后按Ctrl+->箭頭,光標(biāo)會(huì)移到 dno這個(gè)單詞的前臺(tái),再按Ctrl + Shift + ->,會(huì)選取dno: 這一小節(jié),多了兩個(gè)字符怎么辦,按Shift + <-箭頭兩次,現(xiàn)在就完全選中了dno了,按Ctrl + C,復(fù)制, 接下后按->箭頭,再按<-箭頭 回到:前,再接下來(lái),輸入 := ASource. 這幾個(gè)字母,再按Ctrl + V粘貼,現(xiàn)在就成了dno := ASource.dno: string[20]; 光標(biāo)在第二個(gè):前,我們?cè)偾宄竺娴淖址?按Shift + End, 再按刪除鍵,這樣就完成了第一列,然后為了方便,我們將光標(biāo)定位到第二行的行首, 向下箭上,再按Home鍵.
這就是我們所有的按鍵, 我們按Ctrl + shift + R結(jié)束錄制,再按 Ctrl + Shift+ P 來(lái)播放吧,非常酷吧
如果非常熟悉 delphi的宏,那么我們可以做出非常多的美妙的事情來(lái),如我們?cè)贛SSQL中經(jīng)常有
update a set dnum = b.dnum 這一類(lèi)的東西,完全可以用delphi的宏來(lái)完成.

錄宏的要點(diǎn),
1 一定要注意書(shū)寫(xiě)代碼整潔的規(guī)律
2 多用ctrl + shift + ->箭頭來(lái)選擇單詞
3 所有的操作都必須要用鍵盤(pán)來(lái)完成,有什么不明白的可以和我聯(lián)系.聯(lián)系方法 [email protected]

  dno := ASource.dno