有一个程式搜索多个文本文件中指定的字符串，其中一个文本文件例如： 123.txt aaaaaaaaaaaaaaassssssssssssssddddddddddddd fffffffffffff ddddddddddddddddddddggggggggg -------------------------------------第1页 ddddddddffffff****ffffffddddd dddddddddddd -------------------------------------第2页 sssssssssssssdddddddddddddddddg 现在我要查找****，希望程序返回此文件的文件名称123以及****所在的页数2。 如何实现？

睡覺前花了10分中幫您寫一下 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=18679227&CC=417753"> 應該可以滿足您的需求 其中.. < class="code"> procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; LIST,output:TstringLIST; LOGFlag:boolean; NOWPAGE:integer; begin OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing]; if OpenDialog1.execute then begin ListBox1.Items:=OpenDialog1.Files; output:=Tstringlist.create; for i:=0 to ListBox1.Count-1 do begin list:=Tstringlist.create; NOWPAGE:=1; //目前第1頁 try list.LoadFromFile(ListBox1.items.Strings[i]); for j:=0 to list.count-1 do begin if pos('----------第',list.strings[j])>0 then inc(NOWPAGE); //加一頁 if pos(Edit2.text,list.strings[j])>0 then begin output.Add('找到字串"'+Edit2.text+'"在'+ListBox1.items.Strings[i]+'中的第'+inttostr(NOWPAGE)+'頁'); end; end; finally list.Free; end; end; end; showmessage(output.Text); end; 程式碼在此下載 > =程式是一種藝術 也是訓練自己的分析規劃= =是段落分明 或是雜亂無章= =是一言以敝 或是廢話連篇= =是一目了然 或是艱深難懂= 體會這份藝術 您會了解另一份喜悅與成就