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