From 3557433c23b40765ac86aeda020f2761f4e4e851 Mon Sep 17 00:00:00 2001 From: Ketmar Dark Date: Fri, 1 Sep 2017 06:38:00 +0300 Subject: [PATCH] xdynrec: some hackcode cleanup --- src/shared/xdynrec.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/shared/xdynrec.pas b/src/shared/xdynrec.pas index e5d0b39..9d6a9a2 100644 --- a/src/shared/xdynrec.pas +++ b/src/shared/xdynrec.pas @@ -143,7 +143,7 @@ type property name: AnsiString read mName; property baseType: TType read mType; property negbool: Boolean read mNegBool; - property defined: Boolean read mDefined write mDefined; + property defined: Boolean read mDefined; property internal: Boolean read mInternal write mInternal; property hasTPrefix: Boolean read mAsT; property separatePasFields: Boolean read mSepPosSize; @@ -156,7 +156,7 @@ type property ebs: TEBS read mEBS; property ebstype: TObject read mEBSType; property ebstypename: AnsiString read mEBSTypeName; // enum/bitset name - property recref: TDynRecord read mRecRef write mRecRef; //FIXME: writing is a hack! + property recref: TDynRecord read mRecRef; property recrefIndex: Integer read getRecRefIndex; // search for this record in header; -1: not found // for lists property count: Integer read getListCount; -- 2.29.2