Count: Integer;
The Count property returns number of workspace styles.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Sts : IWxStyles;
style : IWxStyle;
Begin
Sts := Ws.Styles;
style := Sts.Item(Sts.Count-1);
style.Delete;
End Sub UserProc;
After executing the example the last style is deleted from the list.
See also: