右书狂记事本 Zord Pascal AnyCode V1.08

本软件下载地址未录入，如想要软件请评论，我们会补上！

900K的小型记事本,拥有语法高亮,HTML代码直接预览功能,绿色,无广告,非盈利.

拥有简单实用的扩展功能,可以拖放并播放MP3,WMA,WMV,FLV,SWF进入其中,可以拖放批量图片以实现简单的图片集预览.

最主要的,其可以进行简单的Pascal(Delphi)语言代码的执行和分解.
Ctrl+M 调用最基本的Pascal模板
F9 进行调试运行

集成了简单的库:SysUtils,Contnrs,Classes,ActiveX,Variants,StdCtrls,ComCtrls,Buttons,Forms,Controls,Graphics,ExtCtrls,Dialogs,Menus,IMP_ImgList,Math,Jepg,Clipbrd,HTTPGet,SolomonNetText(定向捕获网页内容的控件,我会在博客里更新用法);
另外还集成了简单的函数以供调用:(可在Pascal高亮模式下按F1)
仅说下部分重要函数:
function MainTextFileName:String; //获取记事本当前打开文档的文件路径
function GetMainText:String; //获取记事本当前文本内容
function GetMainTextSelect:String;//获取记事本当前选定文本内容
procedure SetMainText(MainText:String);//设置记事本当前文本内容
procedure MainTextOpen(FileName:String);//命令记事本打开
procedure MainTextSave(FileName:String);//命令记事本保存
procedure MainTe>

xtImport(FileName:String);//命令记事本导入并解析Pascal脚本
procedure MainTextShowPasXML; //命令记事本显示解析完成的PascalXML内容
procedure MainTextShowCount; //记事本简单的统计 建议更多使用自己编写的扩展脚本来实现
procedure MainTextSelectAll; //记事本全选
procedure MainTextHighlight(Index:Integer);//设置记事本语法高亮
procedure WebOpen(UrlStr:String); //调用记事本内部浏览器打开网页
procedure PreViewPhoto(PicStr:String);//预览图片
procedure PreViewFLV(FLVStr:String);//预览FLV
procedure ShowText(Text:String); //状态栏文字
procedure DownLoadFile(Url,FileName:String);//下载文件函数
procedure Winexec(FPath:String;IsHide:Boolean=false);//执行函数
procedure Shellexecute(FPath:String;IsHide:Boolean=false);//Shell执行函数

利用现有的函数库以及函数,可以进行文本控制运算,简单几句代码就可以生成例如乘法口诀表,批量文本任务等
结合内部Pascal解析XML功能,可以自己编写简单的XML读写应用(DLL,ActiveX,javas cript等),就可以实现将Pascal(Delphi)语言脚本转化为如VBS,C,Java等任意语言脚本,同时也希望各位达人将编制好的Pascal脚本转换模块热心共享出来,方便更多人来使用.

对于常用的处理脚本,可以在编写完毕以后,在建立Addon目录,将脚本储存为.pas文件,记事本以后启动时将自动添加进扩展菜单,方便日后使用.我也将会陆续在博客上放些写好的实用脚本,欢迎大家使用.

>