界面
功能：
一、能编辑文字，能保存文稿。
2.检测格律，出律显则示红色。
3.能输出为word文件。
效果如下：
思路：
一、古诗格律有八种格式，以文本文件存储为参数，供程序调用。将平水韵或新韵字库存储在文本文件中供程序调用。
二，监测时 读出格律参数，按格逐个输出，即一个格显示平窄。
三、将作者的诗稿每句逐句拆分输出到相应的平窄格子中。
四、逐字检测是否符合韵库的平调。
五、实现工具，根据自己的喜好选择程序语言。
1.写循环句，将格律规则分布到格子中。
2.写循环语句，逐字分布在格子中。
3.逐字检查是平是窄，如果与格律不符，则呈红色。
4.点击生成word，输出位word文档。
生成word，我用的是CreateoleObject创建word对象。
var
mydoc:variant;
mydoc:=createoleobject('word.application')
然后for i=1 to w do
逐字拆分，输出到格子中。
