Description: String;
Свойство Description определяет сопроводительный текст, который будет отображен в мастере установки обновления перед началом установки.
Для выполнения примера необходимо наличие в репозитории таблицы с идентификатором «Table_1».
Sub UserProc;
Var
MB: IMetabase;
MBDesc: IMetabaseObjectDescriptor;
MUpdate: IMetabaseUpdate;
ObjNode: IMetabaseUpdateDataObjectNode;
Begin
MB := MetabaseClass.Active;
MBDesc := MB.ItemById("Table_1");
MUpdate := MB.CreateUpdate;
MUpdate.Description := "Будет обновлена таблица";
ObjNode := MUpdate.RootFolder.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;
ObjNode.Label := MBDesc.Id;
ObjNode.Method := MetabaseUpdateMethod.All;
ObjNode.Object := MBDesc;
ObjNode.BatchMode := ObjectUpdateDataBatchMode.InsertOnly;
MUpdate.SaveToFileNF("c:\Update.pefx");
End Sub UserProc;
После выполнения примера будет создано обновление, для которого будет задан сопроводительный текст. Обновление будет содержать таблицу, данные которой будут только дополнены новыми записями.
См. также: