Question

我正在实现一个包，用于在delphi IDE中转换和自动生成组件。我知道GExperts有类似的功能，但我需要自定义一些特定的属性。

现在我一直在访问TADOQuery.SQL属性，这是 TStrings 的一个实例：

var
    aVal : TValue;
    aSqlS : TStrings;
begin
    [...]
    if (mycomp.GetComponentType = 'TADOQuery') then
        if mycomp.GetPropValueByName('SQL', aVal) then
        begin
            aSqlS := TStrings(aVal.AsClass);
            if Assigned(aSqlS) then             <----- problem is here
                ShowMessage(aSqlS.Text);        <----- problem is here
        end;
end;

我不确定使用RTTI的 TValue 是否正确。

由于

Answer 1

假设GetPropValueByName()返回有效的TValue（您没有显示该代码），那么使用aVal.AsClass是错误的，因为SQL属性getter不会返回元类类型。它返回一个对象指针，因此请改用aVal.AsObject，甚至aVal.AsType<TStrings>。

更新如果comp实际上是IOTAComponent而不是TValue，则根本无法使用。 IOTAComponent.GetPropValueByName()的输出是无类型var，它接收属性值的原始数据，或IOTAComponent个派生对象的TPersistent：

var
  aVal: IOTAComponent;
  aSqlS : TStrings;
begin
    [...]
    if (mycomp.GetComponentType = 'TADOQuery') then
      if mycomp.PropValueByName('SQL', aVal) then
        ShowMessage(TStrings(aVal.GetComponentHandle).Text);
end;

但是，更好的选择是访问实际的TADOQuery对象：

if (mycomp.GetComponentType = 'TADOQuery') then
  ShowMessage(TADOQuery(comp.GetComponentHandle).SQL.Text);

Delphi OpenTools API获取组件属性

1 个答案: