
23.11.2013, 15:59
|
 |
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от oleg_c#
SysErrorMessage говорит что не удается найти указанный путь
|
Значит так и есть.
Проверяй примерно так:
Код:
var
FileName1, FileName2: String;
begin
FileName1 := templatepath + cbTemplate.Items[cbTemplate.ItemIndex];
if not FileExists(FileName1) then
raise Exception.CreateFmt('Не найден файл "%s"', [FileName1]);
FileName2 := frmMain.sdReport.FileName;
if not DirectoryExists(ExtractFileDir(FileName2)) then
raise Exception.CreateFmt('Не найден каталог "%s"', [ExtractFileDir(FileName2)]);
if not CopyFile(Pointer(FileName1), Pointer(FileName2), True) then RaiseLastOSError;
end;
|