потом Y.GetRowOfDb
Так?
Примерно
Спасибо
function TMYCLASS.SETRECORDOFBASE2( _T : TIBTRANSACTION; var ERRMES : STRING ) : INTEGER; var Q : TIBDataSet; rType : TRttiType; rProp : TRttiProperty; Context : TRttiContext; s, fPropName, fClassName : string; fValue : TValue; begin Result := 0; Context := TRttiContext.Create; rType := Context.GetType(Self.ClassInfo); try for rProp in rType.GetProperties do if rProp.PropertyType.TypeKind = tkClass then begin (rProp.GetValue(Self) as TMyClass).SetRecordOfBase2(_T,ERRMES); end; finally FreeAndNil(Context); end; end ;
Стикер
Обсуждают сегодня