功能:

1.能编辑笔墨,能保存文稿。

2.检测格律,出律显则示赤色。

3.能输出为word文件。

写一个检测古诗格律的软件

效果如下:

思路:

一,古诗格律共有8种格式,以文本文件存储为参数,供程序调用。
将平水韵或新韵字库以文本文件存储,供程序调用。

二,监测时 将格律参数读出来,按格逐个输出,即一个格显示一个平仄。

三,将作者的诗稿每句逐个笔墨拆分输出到对应平仄的格子里。

四,逐字检测,是否符合韵库里的平仄。

五,实现工具,根据自己喜好选择程序措辞。

1.写循环语句将格律平仄规则分布到格子里。

2.写循环语句,将诗稿逐字分布到格子里。

3.逐字检讨是平还是仄,与格律不符,则显示赤色。

4.点击天生word,输出位word文档。

天生word,我用的是CreateoleObject创建word工具。

var

mydoc:variant;

mydoc:=createoleobject('word.application')

然后for i=1 to w do

逐字拆分,输出到格子里。