جستجو در چند فايل(محتواي فايل)

[maisam57]

چطوري ميشه مثلا توي 10 فايل تكست يك كلمه رو سرچ كرد كه اگه وجود داشت توي database بريزه
اينو از توي سايت سرچ كردم ولي نميدونم چطوري توي چندين فايل ازش استفاده كنم


function ExtractTextFromFile(const SearchWord: string; const FileName: TFileName): string;
var
SList : TStringList;
WordPos : integer;
begin
SList := TStringList.Create;
try
SList.LoadFromFile(FileName);
WordPos := Pos(SearchWord,SList.Text);
if WordPos > 0 then
Result := Copy(SList.Text,WordPos,Length(SearchWord)+4);
finally
SList.Free;
end;
end;

Edit1.Text := ExtractTextFromFile('Reza','C:\Test.txt');