| Class TProviderProperty (unit CDSProv) |
| Constructors |
| Functions |
procedure GetValues(Proc : TGetStrProc);
function IsProvider(const s : string) : boolean;
procedure ProviderProc(const s : string);| Properties |
| Events |
| Variables |
FCheckProc : TGetStrProc;| Constructors |
| Functions |
procedure GetValues(Proc : TGetStrProc);Only add components which support IProvider to the list
function IsProvider(const s : string) : boolean;TProviderProperty
procedure ProviderProc(const s : string);ProviderInfo:=TypInfo.GetPropInfo(AComponent.ClassInfo, 'Provider'); if (ProviderInfo <> nil) and (ProviderInfo^.PropType^.Kind = tkInterface) then begin PropType := ProviderInfo^.PropType^; if IsEqualGUID(GetTypeData(PropType)^.GUID, IProvider) then exit; end;
| Properties |
| Events |
| Variables |
FCheckProc : TGetStrProc;