Как можно исследовать объект, который должен передаваться в метод с помощью Rtti? Например я хочу получить значения всех полей объекта. Пример как я пробую:
type
TSimple = Class
I: Integer;
S: String;
end;
////////////////
function TRttiSearch.CheckObject(AValue: TValue; const ARequest: String): Boolean;
var
rC: TRttiContext;
rT: TRttiType;
rF: TRttiField;
LValue: TValue;
begin
Result := False;
AValue.AsType<TSimple>.I := 10;
AValue.AsType<TSimple>.S := '15';
rC := TRttiContext.Create;
try
{1} rT := rC.GetType(AValue.TypeInfo); // Информация о типе
Log.d(rT.QualifiedName); //
for rF in rT.GetFields do // Перебираем поля объекта
begin
{2} LValue := rF.GetValue(AValue.GetReferenceToRawData); // Пытаемся получить значение поля
Log.d('%S = ''%S''', [rF.ToString, LValue.AsVariant]); //
Result := CheckTValue(LValue, ARequest);
if Result then
Break;
end;
finally
rC.Free;
end;
end;
{1} - тип определяется правильно. Но в {2} - возвращает значения по-умолчанию. Вот что в логе:
Debug Output: RareUtils.RttiSearch.TSimple Process Test.exe (5312)
Debug Output: I: Integer @ 04 = '0' Process Test.exe (5312) Debug
Output: S: string @ 08 = '' Process Test.exe (5312)
Как я понимаю нужно передавать не AValue.GetReferenceToRawData
, а что-то другое. Но что именно?
case value.Kind of tkInteger : ...
(TValue.Kind
) и т.п. и выводите соответственно.GetValue
метод должен получать указатель на экземпляр объекта. Есть у васx : TTest
с полемFField
, создали экземпляр этогоx
, потом получили экземлярvar f : TRttiField
для вашегоFField
, и что бы вернуть значение поля для конкретного объекта надоf.getValue(x)
сделать.LValue := rF.GetValue(AValue.GetReferenceToRawData);
наLValue := rF.GetValue(AValue.AsObject);
asObject