Код HTML:
var
n,i:integer;
f:TextFile;
Ftext:string;
begin
for n := 0 to FileListBox1.Items.count-1 do
begin
AssignFile(f,FileListBox1.Items.Strings[n]);
Reset(f);
ftext:='';
while not Eoln(f) do
begin
Read(f, Ftext); // чтение и отображение одного символа
end;
if pos(Edit1.Text,Ftext)<>0 then
begin
memo1.Lines.Add(FileListBox1.Items.Strings[n]);
end;
closefile(f);
Поиск осуществляется только по первой строке, если в текстовом файле слово(по которому ищем) находится ниже, то программа не выводит файл как найденый :( Подскажите, пожалуйста. |
