Topic: Прошу помощи со скриптом
Есть скрипт для открытия файла по двойному клику на таблицу. При этом файл автоматически копируется в указанную мной папку. Как сделать так,чтобы при удалении записи из таблицы,файл который скопировался в папку автоматически удалился?
П.с. код нашел на форуме
procedure Anketa_OnShow (Sender: string; Action: string);
begin
Anketa.TableGrid1.dbPopupMenu.Items.Items[0].Enabled:= False;
end;
procedure Anketa_OnDoubleClick (Sender: string);
var
FileName: string;
begin
FileName:= SQLExecute ('Select file_filename From Anketa Where id='+Anketa.TableGrid1.sqlValue);
FileName:= ExtractFileDir (Application.ExeName)+FileName;
if FileExists (FileName) then OpenFile (FileName);
end;
Также в компоненте DBFile в свойстве CopyTo указываю папку куда будет копироваться файл (в моем случае в папку files)