G
Guest
Здравствуйте!
У меня задача перенести из одного каталога файлы в другой. Есть некий список файлов.
Файлы копируются, но почему-то не удаляются, хотя об ошибке среда не сообщает.
При пошаговом просмотре программы все нормально удаляется.
Прилагаю отрывок текста:
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;
Подскажите, почему так получается ?
У меня задача перенести из одного каталога файлы в другой. Есть некий список файлов.
Файлы копируются, но почему-то не удаляются, хотя об ошибке среда не сообщает.
При пошаговом просмотре программы все нормально удаляется.
Прилагаю отрывок текста:
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;
Подскажите, почему так получается ?