Class TProviderProperty (unit CDSProv)

Inherits from

TComponentProperty

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.

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;