1[arrayd | array declaration (var)] 2$(AttributesStart) 3EnableMakros=true 4RemoveChar=true 5$(AttributesEnd) 6$Param(VariableName): array[0..$Param(HighNumber)] of $Param(Type); 7| 8[arrayc | array declaration (const)] 9$(AttributesStart) 10EnableMakros=true 11$(AttributesEnd) 12array[$param(0)..$param(1)] of $param(Type) = (|); 13[cases | case statement] 14$(AttributesStart) 15EnableMakros=true 16$(AttributesEnd) 17case $param(var) of 18 : |; 19 : ; 20end$AddSemicolon() 21[be | begin end else begin end] 22$(AttributesStart) 23EnableMakros=true 24$(AttributesEnd) 25begin 26 | 27end else 28begin 29 30end$AddSemicolon() 31[casee | case statement (with else)] 32$(AttributesStart) 33EnableMakros=true 34$(AttributesEnd) 35case $param(var) of 36 : |; 37 : ; 38else ; 39end$AddSemicolon() 40[classf | class declaration (all parts)] 41$(AttributesStart) 42EnableMakros=true 43RemoveChar=true 44$(AttributesEnd) 45$Param(ClassName) = class($Param(InheritedClass)) 46private 47 48public 49 | 50 constructor Create; 51 destructor Destroy; override; 52end; 53[classd | class declaration (no parts)] 54$(AttributesStart) 55EnableMakros=true 56RemoveChar=true 57$(AttributesEnd) 58$Param(ClassName) = class($Param(InheritedClass)) 59| 60end; 61[classc | class declaration (with Create/Destroy overrides)] 62$(AttributesStart) 63EnableMakros=true 64RemoveChar=true 65$(AttributesEnd) 66$Param(ClassName) = class($Param(InheritedClass)) 67private 68 69protected 70 71public 72 | 73 constructor Create; override; 74 destructor Destroy; override; 75published 76end; 77[d | debugln] 78$(AttributesStart) 79EnableMakros=true 80$(AttributesEnd) 81debugln(['$ProcedureName() '|])$AddSemicolon() 82[fors | for (no begin/end)] 83$(AttributesStart) 84EnableMakros=true 85RemoveChar=true 86$(AttributesEnd) 87for $Param(CounterVar) := $Param(0) to Pred($Param(Count)) do 88 | 89[forb | for statement] 90$(AttributesStart) 91EnableMakros=true 92RemoveChar=true 93$(AttributesEnd) 94for $Param(CounterVar) := $Param(0) to Pred($Param(Count)) do 95begin 96 | 97end$AddSemicolon() 98[function | function declaration] 99$(AttributesStart) 100EnableMakros=true 101$(AttributesEnd) 102function $param(Name)($param( )): $param(Type); 103begin 104 | 105end; 106[hexc | HexStr(Cardinal(),8)] 107HexStr(PtrUInt(|),8) 108[ifs | if (no begin/end)] 109if $Param(Conditional) then 110 | 111[ifb | if statement] 112$(AttributesStart) 113EnableMakros=true 114RemoveChar=true 115$(AttributesEnd) 116if $Param(Conditional) then 117begin 118 | 119end$AddSemicolon() 120[ife | if then (no begin/end) else (no begin/end)] 121$(AttributesStart) 122EnableMakros=true 123RemoveChar=true 124$(AttributesEnd) 125if $Param(Conditional) then 126 | 127else 128[ifeb | if then else] 129$(AttributesStart) 130EnableMakros=true 131RemoveChar=true 132$(AttributesEnd) 133if $Param(Conditional) then 134begin 135 | 136end 137else begin 138 139end$AddSemicolon() 140[procedure | procedure declaration] 141procedure $Param(ProcName)|($Param()); 142begin 143 | 144end; 145[ofall | case of all enums] 146$(AttributesStart) 147EnableMakros=true 148$(AttributesEnd) 149of 150|$OfAll()end; 151[trye | try except] 152$(AttributesStart) 153EnableMakros=true 154$(AttributesEnd) 155try 156 | 157except 158 159end$AddSemicolon() 160[tryf | try finally] 161$(AttributesStart) 162EnableMakros=true 163RemoveChar=true 164$(AttributesEnd) 165try 166 | 167finally 168 $Param(FreeStatement,default) 169end$AddSemicolon() 170[trycf | try finally (with Create/Free)] 171$(AttributesStart) 172EnableMakros=true 173RemoveChar=true 174$(AttributesEnd) 175$Param(VarName) := $Param(TMyClassName).Create; 176try 177 | 178finally 179 $Param(VarName,Sync=1).Free; 180end; 181[whileb | while statement] 182$(AttributesStart) 183EnableMakros=true 184RemoveChar=true 185$(AttributesEnd) 186while $Param(LoopCondition) do 187begin 188 | 189end$AddSemicolon() 190[whiles | while (no begin)] 191while $Param(LoopCondition) do 192 | 193[withb | with statement] 194$(AttributesStart) 195EnableMakros=true 196RemoveChar=true 197$(AttributesEnd) 198with $Param(Object) do 199begin 200 | 201end$AddSemicolon() 202[b | begin end] 203$(AttributesStart) 204EnableMakros=true 205$(AttributesEnd) 206begin 207 | 208end$AddSemicolon() 209[withs | with (no begin)] 210$(AttributesStart) 211EnableMakros=true 212RemoveChar=true 213$(AttributesEnd) 214with $Param(Object) do 215 | 216[withc | with for components] 217$(AttributesStart) 218EnableMakros=true 219RemoveChar=true 220$(AttributesEnd) 221with $Param(Object) do 222begin 223 Name:='$Param(NameText)'; 224 Parent:=Self; 225 Left:=$Param(0); 226 Top:=$Param(0); 227 Width:=$Param(0); 228 Height:=$Param(0); 229 Caption:='$Param(CaptionText)'; 230end; 231| 232[fpc | Conditional FPC Mode] 233$(AttributesStart) 234RemoveChar=true 235$(AttributesEnd) 236{$IFDEF FPC} 237 {$mode objfpc}{$H+} 238{$ENDIF} 239| 240[todo | ToDo item creator] 241$(AttributesStart) 242EnableMakros=true 243RemoveChar=true 244$(AttributesEnd) 245{ TODO -o$Param(Author) : $Param(Note) } | 246[w | writeln] 247$(AttributesStart) 248EnableMakros=true 249$(AttributesEnd) 250writeln('$ProcedureName() '|)$AddSemicolon() 251[prws | property read write] 252$(AttributesStart) 253!Version=1 254$(AttributesEnd) 255property $param(Name) read $param(Get)$param(Name,sync=1) write $param(Set)$param(Name,sync=1);| 256[prwd | property read write default] 257$(AttributesStart) 258!Version=1 259$(AttributesEnd) 260property $param(Name) read $param(Get)$param(Name,sync=1) write $param(Set)$param(Name,sync=1) default $param(Const);| 261[pirws | property Integer read write] 262$(AttributesStart) 263!Version=1 264$(AttributesEnd) 265property $param(Name): Integer read $param(Get)$param(Name,sync=1) write $param(Set)$param(Name,sync=1);| 266[pirwd | property Integer read write default] 267$(AttributesStart) 268!Version=1 269$(AttributesEnd) 270property $param(Name): Integer read $param(Get)$param(Name,sync=1) write $param(Set)$param(Name,sync=1) default $param(Const);| 271[psrw | property string read write] 272$(AttributesStart) 273!Version=1 274$(AttributesEnd) 275property $param(Name): string read $param(Get)$param(Name,sync=1) write $param(Set)$param(Name,sync=1);| 276[pdrwd | property Double read write default] 277$(AttributesStart) 278!Version=1 279$(AttributesEnd) 280property $param(Name): Double read $param(Get)$param(Name,sync=1) write $param(Set)$param(Name,sync=1) default $param(Const);| 281[pdrws | property Double read write] 282$(AttributesStart) 283!Version=1 284$(AttributesEnd) 285property $param(Name): Double read $param(Get)$param(Name,sync=1) write $param(Set)$param(Name,sync=1);|