Commit 4019d59

committed

Add $M+ to avoid Delphi warning, fix {$apptype...} position (must be above uses)

1 parent 87051f9 commit 4019d59Copy full SHA for 4019d59

File tree

-2

lines changed

-2

lines changed

Lines changed: 3 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,10 +1,11 @@`
`1`	`1`	`program simple_properties_example;`
`2`	`2`
`3`		`-uses SysUtils;`
`4`		`-`
`5`	`3`	`{$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}`
`6`	`4`
	`5`	`+uses SysUtils;`
	`6`	`+`
`7`	`7`	`type`
	`8`	`+ {$M+} // make it explicit that RTTI for TCreature should be generated`
`8`	`9`	`TCreature = class`
`9`	`10`	`strict private`
`10`	`11`	`FHitPoints: Integer;`

Comments

(0)