一个测试程序迭代的故事03

jeason 2020-06-09

第七个需求 输出信息

测试代码经常要输出信息。一般网上分享的方案都是用ShowMessage之类的窗体输出信息,要点击才可以关闭弹出的窗体,如果用在循环中,可不太友好。

还可以使用OutputDebugString输出调试信息,但不能脱离IDE,还要打开Envent Log窗口,或者配合其他软件才能看到。

也可以使用WriteLn输出到cmd窗口,但会弹出cmd窗口,不美观。

输出到文件也是一种方法,但要打开文件才能查看,一般只用于备查。

下断点,在IDE窗口中查看变量信息,一般也只用于调试。

其实,既然是专门用于测试代码的程序,直接在窗体中增加一个Memo显示信息,更直观,更方便,想复制就复制,想保存就保存,想向前翻看就向前翻看。为了增加灵活性和便捷性,还可以增加几个重载函数,接受不同类型的参数。

当然,Memo和函数都添加到父窗体中就可以。

窗体继承可真方便!

使用Memo可以满足需求,但有个小问题,输出不带样式,无法突出显示重要信息。

换成RichEdit,修改一些输出函数,输出内容就美观多了。

完成!

第八个需求 运行时显示源代码

现在,测试代码太方便了,测试之外的工作都是自动完成的,很多代码都写到了测试程序中,开发其他程序时,有时要从测试程序中找代码,这又带来了一个新问题。

运行程序,找到效果满意的功能后,要再翻看源代码文件才能找到源代码。效率太低!

最好在看到运行效果时,同时看到源代码。

最简单的方法,再添加一个Memo,载入窗体对应的单元文件,在Action执行时,找到Action对应事件的代码,显示这段代码就可以完成任务。在TreeView的Click事件中增加一点代码就可以做到。但是,显示的代码是不带高亮,看着很不习惯。

网上可以搜索到的高亮显示代码的第三方组件有很多。EControl_SyntEdit比较成熟,功能也多,但是商业软件。最知名的SynEdit,也比较成熟,功能也多,而且开源,只是给编译后的程序增加了不少尺寸。测试程序只需要显示Pascal代码,不需要编辑。键盘方案、自动完成、代码折叠、代码组织、多高亮方案等功能都不需要,一些小型的组件更合适。

有一个组件从TMemo继承,重写了WMPrint函数,代码简单,可以突出显示关键字和数字常量,无法突出显示注释。使用效果还可以,修改了一些Bug,基本可以完成任务。

后来又从Lazarus中找到一个高亮组件,从TcustomControl继承,修改一点代码就可以用于Delphi,代码不多,可以突出显示不同的元素。修改了一些Bug后,非常适合测试程序使用。

这些工作只要在父窗体中完成就可以,子窗体一点都不需要修改。

运行测试程序,找到需要的功能,测试的同时就能看到源代码,又有了代码库的功能!

爽!

第九个需求 ActionList编辑器

现在测试代码的步骤简化为,打开测试工程,打开相关窗体,打开ActionList编辑器,新建一个Action,双击Action,在Execute事件中添加代码,然后编译运行程序,点击树的节点,观看代码的作用,同时还可以看到源代码。

经过之前的改造,运行时找代码容易了,设计时却显得不那么容易了。

之前没有关心Action的名称,使用的都是默认名称。打开ActionList编辑器后,显示的都是ActionXX,看着就头大。

可以在修改Action标题时,同时修改名称。但有个问题,名称不能用汉字,用英文或者拼音命名又不符合国人习惯。XE之后的版本虽然可以用中文命名,可兼容问题又来了。最好让ActionList编辑器能同时显示Action的标题,这样可以不增加工作且满足需求。

查了查Delphi的Source文件夹,没有找到ActionList编辑器的源代码,走捷径是不成了。再从以前收集的源代码中找一找,竟然找到一个,不是用于Delphi的,改改居然可以用,能同时显示名称、标题,甚至提示信息,还附带收藏功能和显示标准Action功能。

可用和好用之间可相差了很多工作量,不过虽然修改工作很痛苦,但成功后带来的效率提升却不少。

磨刀不误砍柴工!

有了源代码可以走的更远,可以在新建Action的同时,一次性填写标题、提示及名称。还可以自动设置Action的名称,让后面的序号对齐成3位,这样同一个类别下的Action自动产生的的Execute函数可以在一起。

真没想到,测试需求竟然影响到组件编辑器!

相关推荐