[Staziah2]

Добрый день! Подскажите,как сделать,чтобы при проверке (копировании) файла заблокировать? То есть выбрали файл,скопировали,но как проверить,что скопировался,и если он не скопировался,надо сделать блокировку,но при этом не попало в дбгрид данных,а если скопировался файл,то спокойно в дбгрид данные добавили.

Код:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm2.Button1Click(Sender: TObject); var Path1, Path2 , Path3: String; begin Path1 := Form2.wwDBComboDlg1.Text; //открыли опендиалог,выбрали файл,и на комбо строка. Path2 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif'; Path3 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text; if FileExists(Path3)=false then begin   if ForceDirectories(Path3) then   CopyFile(Path1,Path2); end;

MAD: Use tags!
делфи7. Спасибо за помощь.

[@Rafa3L]

Код:

1 2 3 4 5 6 7

...  if not FileExists(Path3) then   begin    if ForceDirectories(Path3) then CopyFile(Path1,Path2);    if FileExists(Path2) then // спокойно в дбгрид данные добавили   end; ...

4250