求一个定数读取的代码

Question

我想做这么一个程序，我有大约1000个左右的短语，可以存在自定义文档或DLL中（最好是DLL）,每一秒读取一个短语，和Edit1中的TEXT做比交，无论结果是不是相等都显示在ListBox1中，把相等的个是显示在Labe2中，Labe1是当前比对的个数

Answer 1

你可以把短语放文本文件里边，每行一个
然后用TStringList加载，用timer去获取
var
  lList: TStringList; //定义成全局变量
  lIdx: integer; //当前已读取到第几条短语
   lcount: integer;procedure tmrTime(Sender )
begin
  inc(lIdx);
  lst1.Items.Add(lList.Strings[lIdx]);
  if lList.Strings[lIdx] = edit1.Text then inc(lCount);
  if lIdx = lList.Count - 1 then tmr1.enabled := false; //如果已经读完所有记录，停止计时器
end;