如何讓查詢到的所有文字檔作一連串的文字搜尋呢 |
尚未結案
|
akin1107
一般會員 發表:12 回覆:14 積分:5 註冊:2004-07-26 發送簡訊給我 |
|
mine
中階會員 發表:28 回覆:129 積分:56 註冊:2004-03-31 發送簡訊給我 |
|
akin1107
一般會員 發表:12 回覆:14 積分:5 註冊:2004-07-26 發送簡訊給我 |
|
mine
中階會員 發表:28 回覆:129 積分:56 註冊:2004-03-31 發送簡訊給我 |
真歹勢 是我沒看清楚題目
uses Strutils; var Tfs:TextFile; Astr:String; begin With ADOQuery do begin CLOSE;SQL.Clear; SQL.ADD('select * from TalbleName'); OPEN;First; end; While Not ADOQuery.Eof do begin Ast:=''; AssignFile(Tfs,Trim(FieldByName('FileName').AsString); Rest(Tfs); While Not Eof(Tfs) do begin Readln(Tfs,Astr); if ansicontainstext(Ast,SearchText)=True then begin Memo1.Text:= Memo1.Text Trim(FieldByName('FileName').AsString #13 #10; ShowMessage('找到了'); end; end; CloseFile(Tfs); Next; end;祝順心 搞不懂!搞不懂!永遠都搞不懂!! 發表人 - |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |