Count: Integer;
Свойство Count возвращает количество стилей рабочего пространства.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Sts : IWxStyles;
style : IWxStyle;
Begin
Sts := Ws.Styles;
style := Sts.Item(Sts.Count-1);
style.Delete;
End Sub UserProc;
После выполнения примера будет удален последний стиль в списке.
См. также: