我想做這么一個程式，我有大約1000個左右的短語，可以存在自定義檔案或DLL中（最好是DLL）,每一秒讀取一個短語，和Edit1中的TEXT做比交，無論結果是不是相等都顯示在ListBox1中，把相等的個是顯示在Labe2中，
Labe1是當前比對的個數
uj5u.com熱心網友回復：
你可以把短語放文本檔案里邊，每行一個然后用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;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/122338.html
標籤：語言基礎/算法/系統設計