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);|