淮阴师范学院数学系--吴克力

----计算机应用能力考试中少不了对汉字输入能力的考核，在平时的教学考核中，这部分内容用笔试进行，但有下列缺点：首先是批改十分困难，其次是输入法必须限定，再者也是最主要的是不能较准确地反映学生的真实水平。针对这些问题，笔者用先进的可视化编程工具De1phi开发了基于windows平台的汉字录入能力水平测试软件。该软件可由教师自己出题，可设置考试时间，有查错能力，有评分功能。由于该软件是借助于操作系统提供的输入法录入汉字，因此软件适用于使用各种输入法的用户。下面将主要的方法作一介绍：

1.试题与答卷

----试题是以文本文件的形式保存，因此一般的文本编辑器均可以直接对其进行编辑。试题通过OpenDia1og控件装入到名为TestMemo的Memo控件中，为显示清楚，用一TPanel控件TPanel0并将其设为黑色构成一模拟黑板，通过几个Label将TestMemo中的试题分行显示在TPanel0上，达到在黑板上出试题的效果。因为黑板上一行最多只能显示二十个汉字，故又引人ShowMemo控件，将TestMemo中过长的行转换为二十个字一行，防止出行。这里TestMemo和ShowMemo的Visible属性均为False。

----答卷用被称为AnswerMemo的Memo控件实现，可充分利用该控件的编辑功能。

2.同步显示能力

----由于试题内容通常较多，不能在黑板上一次全部显出，因而显示的内容应受AnswerMemo中的光标控制。也就是说，随着AnswerMemo中的光标在不同行的移动，黑板上也应及时显示出这行需输入的内容。因此确定光标的位置是关键，该功能是利用函数UpdateCursorPos实现的，过程如下:

　 　Procedure TMain.UpdateCursorPos；
　 　var
　 　 　CharPos:TPoint;
　 　begin
　 　 　CharPos.Y:= SendMessage(AnswerMemo.Handle,
EM_LINEFROMCHAR,AnswerMemo.SelStart,0);
　 　 　CharPos.X:=(AnswerMemo.SelStart
　 　 　SendMessage(AnswerMemo.Handle,
EM_LINEINDEX,CharPos.Y,0));
　 　 　CurX:=CharPos.x;
　 　 　CurY:=CharPos.y;
　 　end;
----在过程Check中调用该过程，而后由AnswerMemo的OnKeyUp事件中调用Check，实现了在答卷过程中光标换行的移动试题内容也随之移动的效果。

3.禁止从剪贴板复制

----由于Windows具有从剪贴板复制内容的功能，使得试题内容能非常容易地被复制到AnswerMemo中而Memo控件又不具备禁止从剪贴板复制的功能,从而造成不答题也能得满分的恶果，因此，必须有禁止从剪贴板复制的能力。实现方法是在USES中添加Clipbrd，再在AnswerMemo的OnKeyPress事件处理过程中写入Clipboard.Clear，这样在答卷时一按健就将剪贴板中的内容清除。

4.定时器的实现

----既然是测试自然少不了定时功能,利用Timer控件能方便地实现定时器的制作。但是Timer是非可视控件，需要写代码来显示所剩时间。在StopWatchTimer的唯一事件OnTimer处理过程中进行如下设计。

　 　procedure TMain.StopWatchTimer
（Sender:TObject）；
　 　var B,F:String;
　 　begin
　 　if SecTime=0 then
　 　 　begin
　 　 　 　SecTime:=59;
　 　 　 　TestTime:=TestTimer －1;
　 　 　end
　 　else
　 　 　SecTime:=SecTime －1;
　 　if SecTime<10 then
　 　 　F：=':0'
　 　else
　 　 　F:=':';
　 　if TestTimer<10 then
　 　 　B:='0'
　 　else
　 　 　b:='';
　 　label5.Caption:=B ＋IntToStr(TestTime)
＋F ＋IntToStr(SecTime);
… … …
----这里label5用于显示测试所剩时间，SecTime与TestTime分别是在TMain类中的private和public下定义的Integer型变量。

5.评分功能

----当测试到时后，应先禁止输入，这只要在StopWatchTimer过程中加上AnswerMemo.Enabled：=False；语句即可。另外应显示考试成绩，过程CompareAnswerTest就是比较AnswerMemo和ShowMemo中的内容，统计出输入正确的汉字个数并放于变量ExactWordCount中。

----程序如下：

procedure TMain.CompareAnswerTest;
var i,j:Integer;
　 　s,w:string;
begin
　 　i:=0;
　 　while ShowMemo.lines.Strings[i]<>'' do
　 　 　begin
　 　 　 　j:=1;
S:=copy
（ShowMemo. Lines. strings[i],j,2);
　 　 　 　W:=copy
(AnswerMemo.Lines.Strings[i],j,2);
　 　 　 　while s<>'' do
　 　 　 　 　 　begin
　 　 　 　 　 　 　if s=w then ExactWordCount:
=ExactWordCaount ＋1;
　 　 　 　 　 　 　j:=j ＋2;
　 　 　 　 　 　 　s:=copy
（ShowMemo. Lines. strings[i],j,2);
　 　 　 　 　 　 　w:=copy
(AnswerMemo.Lines.Strings[i],j,2);
　 　 　 　 　 　end;
　 　 　 　i:=i ＋1;
　 　 end;
end;
----在StopWatchTimer中调用该过程，用一组Label控件显示出正确数以及成绩等结果。

6.查错功能

----类似于查找和替换的方法，比较AnswerMemo和ShowMemo中的每一个字，如果不同，用"X"号替换AnswerMemo中的内容。用一按钮来调用该功能，在CheckButton的OnClick事件处理过程中实现了该功 能。

　procedure TMain.Check
ButtonClick(Sender:TObject);
　Var
　 　AnsStr,TstStr,LStr,MStr:String;
　 　I,J:Integer;
　begin
　 　for J:=0 to AnswerMemo.Lines.Count －1 do
　 　 　begin
　 　 　 　TstStr:=ShowMemo.lines.Strings[J];
　 　 　 　AnsStr:=AnswerMemo.lines.strings[j];
　 　 　 　I:=1;
　 　 　 　while I<=Length(AnsStr) do
　 　 　 　 　begin
　 　 　 　 　 　LStr:=Copy(AnsStr,I,2);
　 　 　 　 　 　MStr:=Copy(TstStr,I,2);
　 　 　 　 　 　if LStr<>MStr then
　 　 　 　 　 　 　begin
　 　 　 　 　 　 　 　Delete(AnsStr,I,2);
　 　 　 　 　 　 　 　Insert('x',AnsStr,I);
　 　 　 　 　 　 　end;
　 　 　 　 　 　 　I:=I ＋2
　 　 　 　 　end;
　 　 　 　 　AnswerMemo.Lines.Strings[J]:=AnsStr;
　 　 　end;
　end;

7.结束语

----笔者用本程序对学生进行五笔字型输入法录入能力教学考核，结束后部分学生对自己的成绩不满意要求重试，但结果相差不大，说明软件能较准确地反映考生的真实水平。