TypInfo RTTI 메서드를 사용하여 하위 속성 항목에 값을 설정하는 방법? 내 질문에

Question

: 그것은 그런 대부분의 경우 가장 역동적 인 기술이기 때문에 How to use “Sender” parameter with “As” operator for more then one class at a time

나는 레미 Lebeau의 대답을 선택합니다. 그것은 RTTI TypInfo 클래스를 사용합니다.

그러나이 클래스를 사용하면서 다른 문제가 발생했습니다. 어떻게 하위 속성 값을 설정합니까?

function TRemote.UpdateQuery(DataSet: TDataSet; SQL: String): Boolean; 
var 
    PropInfo: PPropInfo; 
begin 
{ atualiza o código SQL padrão de um dataSet de consulta tipo View } 
    PropInfo := GetPropInfo(DataSet, 'SQL', []); 
    if not Assigned(PropInfo) then 
    begin 
    Result := False; 
    Exit; 
    end; 
    try 
    DataSet.Close; 
    SetPropValue(DataSet, PropInfo, SQL); 
    DataSet.Open; 
    Result := True; 
    except 
    Result := False; 
    end; 
end; 

예 : 은 내가 TIBQuery을 가지고 있고 나는 SQL 속성의 텍스트를 업데이트 할. 하지만 SQL 속성은 TStrings 클래스이므로 SQL.Text를 사용해야합니다. 위의 코드에서 TString을 가져 왔기 때문에 "Invalid Property Type"오류가 발생하고 나중에 일반 문자열을 설정하려고합니다.

GetPropInfo를 사용하여 SQL.Text에 도달하는 방법은 무엇입니까? SQL 속성이있는 TIBQuery와 TZQuery의 공통 조상이 있습니까? 따라서 함수 매개 변수의 TDataSet 대신 변경할 수 있습니까?

Answer 1

TStrings.Text 속성은 Delphi 2006의 RTTI를 통해 액세스 할 수 없습니다. 그렇다고하더라도 어쨌든 RTTI를 사용하지 않아도 액세스 할 수 있습니다.

: 당신이 SQL 속성은 TStrings 개체입니다 알고 있기 때문에, 당신은 단순히 재산의 실제 개체 포인터 retreive 수 있습니다 당신은 당신이 예를 들어, 객체로 할 필요가 무엇이든 할 수하는 TStrings 포인터로 타입 캐스트

function TRemote.UpdateQuery(DataSet: TDataSet; SQL: String): Boolean; 
var 
    PropInfo: PPropInfo; 
    SQLObj: TStrings; 
begin 
    Result := False; 
    try 
    PropInfo := GetPropInfo(DataSet, 'SQL', [tkClass]); 
    if not Assigned(PropInfo) then Exit; 
    SQLObj := TStrings(GetObjectProp(DataSet, PropInfo, TStrings)); 
    if not Assigned(SQLObj) then Exit; 
    DataSet.Close; 
    SQLObj.Text := SQL; 
    DataSet.Open; 
    Result := True; 
    except 
    end; 
end;