После CreateFile не срабатывает DeleteFile

[Arkuz]

Здравствуйте. Не пойму в чём дело...
За одну компиляцию программы можно создать файл, а удалить не получается.
Смотрел Через Unlooker'а - показывает, что после создания файла он занят процессом Delphi, а когда пытаюсь удалить его показывает мессагу, что файл удалён(а на самом деле файл не удалён). Закрываешь прогу, запускаешь - удаляет. Опять создаёшь и пытаешься удалить не удаляет, а мессагу показывает, что удалил... Может что не так делаю? Подскажите...

procedure TForm1.CreateClick(Sender: TObject);
begin
 if FileExists('dat') then
    ShowMessage('file EXIST!!!');
    else
      begin
        FileCreate('dat');
        ShowMessage('file create!!!');
      end;
 
procedure TForm1.DelClick(Sender: TObject);
begin
if FileExists('dat') then
 begin
   DeleteFile('dat');
   ShowMessage('delete file DAT');
 end 
    else ShowMessage('file NOT EXIST');
end;

[mihali4]

А что ж тут непонятного-то?

fh: integer;
...
procedure TForm1.CreateClick(Sender: TObject);
begin
 if FileExists('dat') then
    ShowMessage('file EXIST!!!') //;
    else
      begin
        fh:=FileCreate('dat');
        ShowMessage('file create!!!');
      end;
end;
 
procedure TForm1.DelClick(Sender: TObject);
begin
if FileExists('dat') then
 begin
   FileClose(fh);
   DeleteFile('dat');
   ShowMessage('delete file DAT');
 end 
    else ShowMessage('file NOT EXIST');
end;

[Arkuz]

Спасибо, mihali4, но почему тогда в help'e по delphi вот такой пример:

if FileExists(FileName) then
  if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?'), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then 
    DeleteFile(FileName);

[mihali4]

Да по той простой причине, что подразумевается - после окончания работы с файлом его нужно закрыть... То есть освободить для любых дальнейших с ним действий. Вы же сами это прекрасно понимаете.
Я доработал ваш вариант - для "забывчивых"...

[Arkuz]

А не могли бы вы мне сказать почему delphi не отлавливает исключение
в этом месте?

if FileExists('dat') then
 begin
   DeleteFile('dat');//выполняется и этот оператор
{а разве здесь не должно быть ошибки? Файл то на самом деле остался, почему мессага появляется?}
   ShowMessage('delete file DAT');// и потом этот
 end 
    else ShowMessage('file NOT EXIST');
end;

Сообщение от mihali4

Я доработал ваш вариант - для "забывчивых"...

А я поблагодарил - для "сонных"

[eskander]

Arkuz,

if FileExists('dat') then
 begin
   if DeleteFile('dat') then  ShowMessage('delete file DAT');
 end 
    else ShowMessage('file NOT EXIST');
end;

[mihali4]

Сообщение от Arkuz

А не могли бы вы мне сказать почему delphi не отлавливает исключение в этом месте?[/CODE]

А потому, что его там не возникает...
Вот если б вы сделали так:

if DeleteFile('dat') then
ShowMessage('file DAT deleted') else
ShowMessage('Can not to delete file');

то все было бы видно.

[Arkuz]

eskander, спасибо, вопрос решён...
Ваш пример несколько для другого случая. А точнее для просмотра мессаги, если файл удалён... А у меня мессаги чисто для контроля... Главное нужно было снести файл и точно знать, что его не существует...

Ладно, не буду с вами спорить и влезать в дебри, боюсь в просак попасть
Вопрос себя исчерпал, всем СПАСИБО!!! Особенно "соням"