ITableFields.Clear

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Table: ITable;
    Fields: ITableFields;
    Field: ITableField;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("Table_1").Edit;
    Table := MObj As ITable;
    Fields := Table.Fields;
    Fields.Clear;
    Field := Fields.Add;
    Field.Id := "NEWFIELD";
    Field.Name := "Новое поле";
    Field.DataType := DbDataType.Integer;
    MObj.Save;
End Sub UserProc;