* fix warnings in Delphi test compilation: published implicitely enables $M for the class

git-svn-id: trunk@36901 -
This commit is contained in:
svenbarth 2017-08-14 19:08:32 +00:00
parent bb947ed639
commit 88eabc12ff

View File

@ -55,6 +55,7 @@ implementation
type type
{$M+}
TGetClassProperties = class TGetClassProperties = class
private private
FPubPropRO: integer; FPubPropRO: integer;
@ -65,9 +66,11 @@ type
property PubPropSetRO: integer read FPubPropRO; property PubPropSetRO: integer read FPubPropRO;
property PubPropSetRW: integer read FPubPropRW write FPubPropRW; property PubPropSetRW: integer read FPubPropRW write FPubPropRW;
end; end;
{$M-}
{ TTestValueClass } { TTestValueClass }
{$M+}
TTestValueClass = class TTestValueClass = class
private private
FAInteger: integer; FAInteger: integer;
@ -90,6 +93,7 @@ type
property AGetShortString: ShortString read GetAShortString; property AGetShortString: ShortString read GetAShortString;
property AWriteOnly: integer write SetWriteOnly; property AWriteOnly: integer write SetWriteOnly;
end; end;
{$M-}
TManagedRec = record TManagedRec = record
s: string; s: string;