удаление файлов

← →
Timka © (2002-12-26 18:49) [0]

это, конечно,от- ещё вопросик, но ...
Прошу подсказать:
- здесь удаление файла работает,

procedure TForm1.Button2Click(Sender: TObject);
begin
DeleteFile(Edit1.Text);
end;

а в большой процедуре с текстом следующего содержания нет.
(в обоих случаях передаётся одинаковая строка, ессно :( )

if (flag=false) then
begin
NewFileName := Edit3.Text+"uns\"+ ListBox1.Items.Strings[i] +"s.htm";
//------------------------------------
OldFile := TFileStream.Create(OldFileName, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
Msg := Format("

← →
TTCustomDelphiMaster © (2002-12-26 19:44) [1]

Одно из двух или файл не возможно удалить или он не существует.

← →
Timka © (2002-12-26 20:09) [2]

к сожалению - есть. и их много.
открываю и сразу закрываю с помощью TFileStream,
впрочем, тут всё видно...

← →
Timka © (2002-12-26 20:43) [3]

в смысле, неясно, почему в этом варианте нельзя удалить.

← →
TTCustomDelphiMaster © (2002-12-26 20:45) [4]

Невозможно удалить потому что он открыт какой-то программой или нет прав на удаление в NT

А) я администратор этой машины и мои логины здесь ТОЛЬКО с администраторскими правами.
В) у меня каталог файлов. получив методами Дельфи список из каталога, я, загружаю текст в Мемо, и сразу уничтожаю файловый поток
OldFile := TFileStream.Create(OldFileName, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
по идее - список файлов у меня хранится(и берётся) из ТList, файлы закрыты... раз потоки уничтожаются сразу, анализирую текст в мемо, т.е. напрямую они совсем не завязаны. перекачивается около 200 файлов... не могут же они быть все открыты. Или я что-то не понимаю в работе TFileStream ?

Тогда используй GetLastError, чтобы определить почему не удалился файл.

удаление файлов Найти похожие ветки