Deletefile()

  • Автор темы Guest
  • Дата начала
G

Guest

#1
Здравствуйте!
У меня задача перенести из одного каталога файлы в другой. Есть некий список файлов.
Файлы копируются, но почему-то не удаляются, хотя об ошибке среда не сообщает.
При пошаговом просмотре программы все нормально удаляется.
Прилагаю отрывок текста:

Fdir:=DataModuleDataSet.IniDir+'\Standard Files\';

if DirectoryExists(DataModuleDataSet.IniDir+'\Used_Order\')=false then
CreateDir(DataModuleDataSet.IniDir+'\Used_Order\');
for i := 0 to FormMassiv.lbOrdersNumber.Items.count-1 do
begin
CopyFile(PChar(Fdir+FormMassiv.lbOrdersNumber.Items.strings),PChar(DataModule
DataSet.IniDir+'\Used_Order\'+FormMassiv.lbOrdersNumber.Items.strings),true);
DeleteFile(PChar(Fdir+FormMassiv.lbOrdersNumber.Items.strings));
end;


Подскажите, почему так получается ?
 
G

Guest

#3
Поставила Move - ситуация аналогична. В другую папку копируется, в этой остается:(
Мне совсем непонятно, почему в отладочном режиме проблем нет, а в нормальном откуда-то выскакивает.
Задержка перед удалением не помогает.
 
G

Guest

#5
дает 0.
Ошибок нет! Функция deleteFile() и MoveFile() на выходе дают значение true.

Вообще я работаю с .xml файлами. Думала, что может где-то висят незакрытые... Посмотрела, вроде нет.
Может ли такое быть, что файлики где-то не закрыты и при этом функция не выдает ошибку?