Здравствуйте, rudzuk, Вы писали:
R>Здравствуйте, swame, Вы писали:
s>> R>слабые ссылки, но работают только для интерфейсов и только начиная с Delphi 10.1 (если не учитывать платформы с поддержкой ARC, от которого все равно отказались)
s>> В свежих дельфях — не только для интерфейсов.
R>Только.
TField = class(TComponent)
private
FAutoGenerateValue: TAutoRefreshFlag;
[Weak]FDataSet: TDataSet;
FFieldName: string;
[Weak]FFields: TFields;
FDataType: TFieldType;
FReadOnly: Boolean;
FFieldKind: TFieldKind;
FAlignment: TAlignment;
FVisible: Boolean;
FRequired: Boolean;
FValidating: Boolean;
FSize: Integer;
FOffset: Integer;
FFieldNo: Integer;
FDisplayWidth: Integer;
FDisplayLabel: string;
FEditMask: TEditMask;
FValueBuffer: TValueBuffer;
{$IFNDEF NEXTGEN}
FValueBufferPtr: Pointer;
{$ENDIF !NEXTGEN}
[Weak]FLookupDataSet: TDataSet;
FKeyFields: string;
FLookupKeyFields: string;
FLookupResultField: string;
FLookupCache: Boolean;
FLookupList: TLookupList;
FAttributeSet: string;
FCustomConstraint: string;
FImportedConstraint: string;
FConstraintErrorMessage: string;
FDefaultExpression: string;
FOrigin: string;
FProviderFlags: TProviderFlags;
[Weak]FParentField: TObjectField;
FValidChars: TFieldChars;
