SlotCount: Integer;
The SlotCount property returns the number of columns in the table with repository accounts.
Sub UserProc;
Var
Mb: IMetabase;
LoS: ILogonSession;
Sc: ISecurityConnection;
Cr: ICredentials;
i: Integer;
Begin
Mb := MetabaseClass.Active;
LoS := Mb.LogonSession;
Sc := LoS.PrimaryConnection;
Cr := Sc.Credentials;
i := Cr.SlotCount;
End Sub UserProc;
After executing the example the "i" variable contains the number of columns of the credentials table of the active repository.
See also: