zoukankan      html  css  js  c++  java
  • DELPHI中IDE宏录制小用

    用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 

    http://www.cnblogs.com/qiubole/articles/116104.html

  • 相关阅读:
    archlinux .bash_history
    Ubuntu环境下挂载新硬盘
    软碟通 UltraISO U启替代品 Win32DiskImager 无设备 无盘符 无u盘 无优盘 解决方案 之diskpart
    delphi Integer overflow
    MSBuild Tools offline
    delphi synedit免费的拼写检查器dll
    git 自定义命令行
    lua编译
    gcc ar
    Windows Subsystem for Linux (WSL)挂载移动硬盘U盘 卸载 c d 盘
  • 原文地址:https://www.cnblogs.com/findumars/p/5995148.html
Copyright © 2011-2022 走看看