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代码