1 [arrayd | array declaration (var)]
6 $Param(VariableName): array[0..$Param(HighNumber)] of $Param(String);
8 [arrayc | array declaration (const)]
12 array[$param(0)..$param(1)] of $param(Type) = (|);
13 [cases | case statement]
21 [be | begin end else begin end]
28 [casee | case statement (with else)]
37 [classf | class declaration (all parts)]
42 $Param(ClassName) = class($Param(InheritedClass))
48 destructor Destroy; override;
50 [classd | class declaration (no parts)]
55 $Param(ClassName) = class($Param(InheritedClass))
58 [classc | class declaration (with Create/Destroy overrides)]
63 $Param(ClassName) = class($Param(InheritedClass))
70 constructor Create; override;
71 destructor Destroy; override;
78 debugln(['$ProcedureName() '|]);
79 [fors | for (no begin/end)]
84 for $Param(CounterVar) := $Param(0) to $Param(Count) - 1 do
86 [forb | for statement]
91 for $Param(CounterVar) := $Param(0) to $Param(Count) - 1 do
95 [function | function declaration]
99 function $param(Name)($param( )): $param(Type);
103 [hexc | HexStr(Cardinal(),8)]
105 [ifs | if (no begin/end)]
106 if $Param(Conditional) then
113 if $Param(Conditional) then
117 [ife | if then (no begin/end) else (no begin/end)]
122 if $Param(Conditional) then
125 [ifeb | if then else]
130 if $Param(Conditional) then
137 [procedure | procedure declaration]
138 procedure $Param(ProcName)|($Param());
142 [ofall | case of all enums]
162 $Param(FreeStatement,default)
164 [trycf | try finally (with Create/Free)]
169 $Param(VarName) := $Param(TMyClassName).Create;
173 $Param(VarName,Sync=1).Free;
175 [whileb | while statement]
180 while $Param(LoopCondition) do
184 [whiles | while (no begin)]
185 while $Param(LoopCondition) do
187 [withb | with statement]
192 with $Param(Object) do
200 [withs | with (no begin)]
205 with $Param(Object) do
207 [withc | with for components]
212 with $Param(Object) do
214 Name:='$Param(NameText)';
220 Caption:='$Param(CaptionText)';
223 [fpc | Conditional FPC Mode]
231 [todo | ToDo item creator]
236 { TODO -o$Param(Author) : $Param(Note) } |
241 writeln('$ProcedureName() '|);