Add(Value: IMetabaseObjectDescriptor): IMetabaseCheckListItem;
Value. Description of the object that should be added to the checksum list.
The Add method adds a repository object to the checksum list.
Executing the example requires that the repository contains an object with the FOLDER_1 identifier.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObjectDescriptor;
Children: IMetabaseObjectDescriptors;
CheckList: IMetabaseCheckList;
Begin
MB := MetabaseClass.Active;
CheckList := MB.CreateCheckList;
MObj := MB.ItemById("Folder_1");
Children := MObj.Children;
CheckList.Add(MObj);
For Each MObj In Children Do
CheckList.Add(MObj);
End For;
CheckList.SaveToFile("c:\control.crc");
End Sub UserProc;
After executing the example a list for calculating checksums of objects is created. The specified object and all its child objects if there are any will be added to this list. After calculation the checksums will be saved to the specified file.
See also: