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