Проблема!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1 Прохожу по всему диску ищу файлы с расшерением *.TXT
2 Допустим нашел
3 Вызываю процедуру просмотра файла
4 Ищу заданное слово в этом файле
5 Допустим нашел и сразуже CloseFile(f); Exit;

Файлов с расшерением *.TXT содержащих заданное слово может быть много

Если идти по F7 то все прекрасно работает

запуск по F9 выдает ошибку File Access denied

Я так понимаю что при трассировке файл успевает закрываться а при прогоне по F9 нет

Как можно дождаться закрытия файла

Код в студию, и где в коде ошибка вылетает?

begin
{I-}
AssignFile(F, Puti);
Reset(F); // вот здесь вылетает ошибка

{I+}
While not eof(f) do
begin
Readln(F, S);
res:=pos(UpperCase(Trim(Form1.Edit2.Text)),UpperCase(Trim(S)));
if res <> 0 then
begin
Form1.ListBox2.Items.Add(Puti);
CloseFile(F);
Puti:='';
exit;
end;
end;
CloseFile(F);
end;

Если идти по F7 то все работает нормально

Код

{$i-} Reset(F); {$i+}

Все равно не работает

Это я в код невчитывался, а сразу посмотрел на место где якобы еррор вылетает.

Сейчас посмотрел код, и скажу тебе одно: такой код не будет работать
если F это File, F должен быть F : textFile; + непомешалобы после
Reset(F); вставить
if IOResult <> 0 then Exit;

Это сообщение отредактировал(а) RAdmin - 17.9.2004, 15:20

1) var f:TextFile;
2) Puti:=FilePath+FileName (т.е C:\Lotas\Readme.txt)
3) {I-} и {I+} - удаляеш

Код

procedure TForm1.Button1Click(Sender: TObject); var f:TextFile;    Puti,S:String;    F_O:Boolean; begin Puti:='C:\Readme.txt'; f_O:=false; try  AssignFile(F,Puti);  try   Reset(f);   f_O:=true;  except  end;  if f_O then   begin    Readln(f,s);    Caption:=s;   end; except end; if f_O then CloseFile(f); end;

При дизайне - ошибки будут вылетать, но при запуске проги не из под Delphi - сообщение об ошибки не увидеш.

Конечно, ИМХО, лудше использовать fileopen(ft:=Fileopen(Puti,fmOpenRead or fmShareDenyNone);

Удачи.

Это сообщение отредактировал(а) Girder - 17.9.2004, 15:24

Если бы я писал, то так:

Код

begin  {Поиск файла}  {если найден, то дулаем это}  AssignFile(F, Puti);  Reset(F); // вот здесь вылетает ошибка  res:=false;  While (not eof(f)) and (not res)  do   begin    Readln(F, S);    if pos(UpperCase(Trim(Form1.Edit2.Text)),UpperCase(Trim(S))) <> 0     then      begin       Form1.ListBox2.Items.Add(Puti);       res:=true;      exit;   end;  CloseFile(F);  {...} end;