Value: Variant;
Свойство Value определяет значение флага по умолчанию.
Для выполнения примера предполагается наличие файла обновления «C:\Update.pefx».
Sub Main;
Var
MB: IMetabase;
Update: IMetabaseUpdate;
Properties: IMetabaseUpdateProperties;
Prop: IMetabaseUpdateProperty;
Begin
MB := MetabaseClass.Active;
Update := MB.CreateUpdate;
Update.LoadFromFileNF("c:\Update.pefx");
Properties := Update.Properties;
Prop := Properties.Add;
Prop.Name := "Флаг";
Prop.Id := "FLAG";
Prop.DataType := DbDataType.Integer;
Prop.Value := 1;
Update.SaveToFileNF("C:\Update.pefx");
End Sub Main;
После выполнения примера в обновление, загруженное из файла «C:\Update.pefx», будет добавлен флаг целого типа со значением по умолчанию «1». Затем обновление будет сохранено.
См. также: