我已將文字檔的檔名和路徑都存到access裡面 經過條件的篩選後，DBGrid的文字檔欄位上皆為我所需要處理的文字檔 我想在按下一個按鈕後，在處理完第一個文字檔後，第二個會自動開啟 就這樣一連串的文字檔處理，直到結束 還有，每一個處理過後的文字檔，處理後所得的訊息也希望能一一的羅列出來 這該用什麼物件來表示呢 每次搜尋到的文字檔各數都是不同的

小的才淺，我想沒有一個"物件"可以一次完成你說的動作! 你可以先用repeat utils 以遞迴的方式對要修改的檔案作搜尋， 作個string的陣列將檔一一撈出"處理"完後再搜尋下一批檔案， 列訊息的話方式就很多了 以上的方式都可以在站上找到相關的文章 祝順心 搞不懂!搞不懂!永遠都搞不懂!!

也許我描述的太複雜吧！還有我好像ｐｏ錯地方了．．． 其實我要的就是取出某個特定欄位的所有值 一個一個開啟文字檔處理的方式 其實只是將取到的文字檔名，做文字檔開啟再加上所要做的處理程序 然後再繼續擷取下一個文字檔名．．．．．．． 我是參考以下文章更改後來取欄位值 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=49595 把開啟文字檔的程式放在中間就可以了 雖然mine所講的方式我不太會用，我是初學者．．． 不過謝謝你熱心的回答

真歹勢 是我沒看清楚題目

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;

祝順心 搞不懂!搞不懂!永遠都搞不懂!! 發表人 -