Да, действительно работает, осталось еще пара вопросов. Используя следующую часть скрипта нужно чтобы на место пути папки прописывалось не вручную, а подставлялась переменная. Например бралась из базы данных соответствующая записи столбца скажем position и столбца Plants и будет иметь вид что-то типа C:\3FE-1204_P3\Наименование вкладки. 3FE-1204 - запись в ячеике position, P3 - запись в ячеике Plants, а наеменование вкладки пишем самостоятельно. И можно ли содержимое вкладки показывать не в гриде, а например средствами windows explorer или пришаманить стороннии скрипт какой?
procedure frmEquipment_bAdd_OnClick (Sender: string; var Cancel: boolean);
var
OpenDialog: TOpenDialog;
begin
OpenDialog := TOpenDialog.Create(frmEquipment);
if OpenDialog.Execute then
begin
CopyFile(OpenDialog.FileName, 'c:\temp\'+ExtractFileName(OpenDialog.FileName));
end;
OpenDialog.Free;
FillGridFiles(frmEquipment.TableGrid1, 'C:\temp');
end;
procedure frmEquipment_bDel_OnClick (Sender: string; var Cancel: boolean);
var
s: string;
begin
s := frmEquipment.TableGrid1.Cells[0, frmEquipment.TableGrid1.SelectedRow];
DeleteFile(s);
FillGridFiles(frmEquipment.TableGrid1, 'C:\temp');
end;
procedure frmEquipment_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
FillGridFiles(frmEquipment.TableGrid1, 'C:\temp');