2011年10月18日

我是如何使用CnPack背英语句子的

摘要: CnPack的脚本功能很强大,照着例子写了一小段代码,从一个文本文件每次读取一行,简答设置一下即可实现每次编译代码前都会弹出对话框显示英语句子。虽然功能简单,但是很好用呀,希望对爱好学习英语的程序员有帮助。代码如下:program ShowEnglishSentence;uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;procedure ShowSentence(const AStr:string);var sTemp:string;begin sTemp:=Trim(AStr); if 阅读全文

posted @ 2011-10-18 13:09 王海波 阅读(1545) 评论(0) 推荐(0)

CnPack非常实用的Pascal脚本-----------复制当前行

摘要: program CopyCurrentLine;uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;var Lines: TStringList; begin Lines := TStringList.Create; try IdeGetEditorSelectedLines(Lines); Lines.AddStrings(Lines); IdeSetEditorSelectedLines(Lines); finally Lines.Free; end;end. 阅读全文

posted @ 2011-10-18 08:15 王海波 阅读(1362) 评论(0) 推荐(0)

导航