上一篇:Delphi使用Hough变换查找直线
下一篇:Delphi基于高斯-拉普拉斯算子的图像边缘检测

Delphi单元文件转Html代码

发布于: 2013-12-24 7:47:51   |  发布在: Delphi源码   |  点击:

经常在博客上写些Delphi相关的编程文章,一般都会先用Delphi调试程序,成功后再直接复制到网页上发表。出于美观和可读性考虑,一般博主都喜欢网页上的Delphi源码显示成在IDE一样的格式,即:关键字加粗,数字和注释用亮颜色显示等,在网页编辑器上用手工设置字体和颜色太麻烦了。于是上网查找了一下,有很多现成的软件,不过都是把Delphi单元文件转成Html网页文件的,即:先保存正在调试的Delphi工程,用软件把Delphi单元文件转成Html网页,再打开网页复制到博客上;感觉步骤还是有点多。又上网搜了一下,找到一个段Pas转Html的Delphi源码:Pas2Html.pas,于是利用这个段源码搞了一个Delphi工程,工程主体当然是Pas2Html,界面设计:在窗体上放置一个TMemo控件,一个TWebBrowser控件。详细代码就不列了,见附件,程序运行后,直接在Memo1中输入Delphi源码,程序调用Pas2Html相关模块转成Html代码,然后直接将Html代码用TWebbrowser显示,然后从TWebbrowser中选择并复制到博客上就可以,不用频繁打开和保存文件了。



源码下载:pastohtml.rar

单元文件HTML代码