mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-01 16:12:36 +02:00
35 lines
2.6 KiB
Plaintext
35 lines
2.6 KiB
Plaintext
LazarusResources.Add('lazarus_dci_file','DCI',[
|
|
'[arrayd | array declaration (var)]'#10'array[0..|] of ;'#10'[arrayc | array '
|
|
+'declaration (const)]'#10'array[0..|] of = ();'#10'[cases | case statement]'
|
|
+#10'case | of'#10' : ;'#10' : ;'#10'end;'#10'[casee | case statement (with'
|
|
+' else)]'#10'case | of'#10' : ;'#10' : ;'#10'else ;'#10'end;'#10'[classf |'
|
|
+' class declaration (all parts)]'#10'T| = class(T)'#10'private'#10#10'public'
|
|
+#10' constructor Create;'#10' destructor Destroy; override;'#10'end;'#10'['
|
|
+'classd | class declaration (no parts)]'#10'T| = class(T)'#10#10'end;'#10'[c'
|
|
+'lassc | class declaration (with Create/Destroy overrides)]'#10'T| = class(T'
|
|
+')'#10'private'#10#10'protected'#10#10'public'#10' constructor Create; over'
|
|
+'ride;'#10' destructor Destroy; override;'#10'published '#10#10'end;'#10'[f'
|
|
+'ors | for (no begin/end)]'#10'for | := to do'#10'[forb | for statement]'
|
|
+#10'for | := to do'#10'begin'#10#10'end;'#10'[function | function declarat'
|
|
+'ion]'#10'function |(): ;'#10'begin'#10#10'end;'#10'[ifs | if (no begin/end)'
|
|
+']'#10'if | then'#10'[ifb | if statement]'#10'if | then begin'#10#10'end;'#10
|
|
+'[ife | if then (no begin/end) else (no begin/end)]'#10'if | then'#10#10'els'
|
|
+'e'#10'[ifeb | if then else]'#10'if | then begin'#10#10'end'#10'else begin'
|
|
+#10#10'end;'#10'[procedure | procedure declaration]'#10'procedure |();'#10'b'
|
|
+'egin'#10#10'end;'#10'[ofall | case of all enums]'#10'$(AttributesStart)'#10
|
|
+'EnableMakros=true'#10'$(AttributesEnd)'#10'of'#10'|$OfAll()end;'#10'[trye |'
|
|
+' try except]'#10'try'#10' | '#10'except'#10#10'end;'#10'[tryf | try finall'
|
|
+'y]'#10'try'#10' | '#10'finally'#10#10'end;'#10'[trycf | try finally (with '
|
|
+'Create/Free)]'#10'|variable := typename.Create; '#10'try'#10#10'finally'#10
|
|
+' variable.Free;'#10'end;'#10'[whileb | while statement]'#10'while | do beg'
|
|
+'in'#10#10'end;'#10'[whiles | while (no begin)]'#10'while | do'#10'[withb | '
|
|
+'with statement]'#10'with | do begin'#10#10'end;'#10'[b | begin end]'#10'beg'
|
|
+'in'#10' |'#10'end;'#10'[withs | with (no begin)]'#10'with | do'#10'[hexc |'
|
|
+' HexStr(Cardinal(),8)]'#10'HexStr(Cardinal(|),8)'#10'[be | begin end else b'
|
|
+'egin end]'#10'begin'#10' |'#10'end else begin'#10#10'end;'#10'[withc | wit'
|
|
+'h for components]'#10'with | do begin'#10' Name:='''';'#10' Parent:=;'#10
|
|
+' Left:=;'#10' Top:=;'#10' Width:=;'#10' Height:=;'#10' Caption:='''';'
|
|
+#10'end;'#10'[d | debugln]'#10'$(AttributesStart)'#10'EnableMakros=true'#10
|
|
+'$(AttributesEnd)'#10'debugln([''$ProcedureName() ''|]);'#10
|
|
]);
|