Einzelnen Beitrag anzeigen

norwegen60

Registriert seit: 23. Dez 2007
Ort: Schwarzwald
505 Beiträge
 
Delphi 12 Athens
 
#3

AW: Namen und Typ aller Attribute einer Klasse ermitteln

  Alt 5. Mär 2017, 13:37
Mit der rtti hatte ich schon angefangen,bin hier aber hängen geblieben:
Delphi-Quellcode:
var
  rttiContext: TRttiContext;
  rttiType: TRttiType;
  attribute: TCustomAttribute;
begin

  rttiContext := TRttiContext.Create;
  try
    rttiType := rttiContext.GetType(TTest);
    for attribute in rttiType.GetAttributes do
      Memo1.Lines.Add(attribute.????);
  finally
    rttiContext.Free;
  end;
end;
Konkret will ich Felder aus einer DB in die Attribute einlesen und sowas
Delphi-Quellcode:
    aMethod.LCParam.LoopSize := quQuery['LoopSize'];
    aMethod.LCParam.IntegratorNumber := quQuery['IntegratorNumber'];
    aMethod.LCParam.WaitForReadySignal := quQuery['WaitForReadySignal'];
    ....
durch das
Delphi-Quellcode:
  for i := 0 to AttCount-1 do
  begin
    case AttTyp of
      tyReal: aMethod.LCParam[i] := quQuery.FieldByName('IntegratorNumber').AsReal;
      tyInteger: aMethod.LCParam[i] := quQuery.FieldByName('IntegratorNumber').AsInteger;
      ...
    end;
  end;
ersetzen
  Mit Zitat antworten Zitat