mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-27 12:53:50 +02:00
22 lines
1.5 KiB
Plaintext
22 lines
1.5 KiB
Plaintext
LazarusResources.Add('indentation','PAS',[
|
|
'unit Indentation;'#10#10'{$mode objfpc}{$H+}'#10#10'interface'#10#10'uses'#10
|
|
+' Classes, SysUtils;'#10#10'type'#10' TEnums = ('#10' enum1,'#10' en'
|
|
+'um2,'#10' enum3'#10' );'#10#10' TMyRecord = record'#10' i: intege'
|
|
+'r;'#10' end;'#10' PMyRecord = ^TMyRecord;'#10#10' { TMyClass }'#10#10' '
|
|
+'TMyClass = class(TObject)'#10' public'#10' procedure DoSomething1(a, b,'
|
|
+' c: integer);'#10' procedure Code;'#10' end;'#10#10'implementation'#10
|
|
+#10'{ TMyClass }'#10#10'procedure TMyClass.DoSomething1(a, b, c: integer;'#10
|
|
+' LongParameter1: TSomeLongParameter);'#10'var'#10' i: integer;'#10'begin'
|
|
+#10' if i=0 then'#10' begin'#10' repeat'#10' if a=2 then'#10' '
|
|
+' ;'#10' until b=3;'#10' try'#10' Code;'#10' finally'#10' '
|
|
+' Code;'#10' end;'#10' try'#10' Code;'#10' except'#10' '
|
|
+'on e: exception do'#10' ;'#10' end;'#10' end'#10' else'#10' be'
|
|
+'gin'#10' case c of'#10' 1:'#10' Code;'#10' 2:'#10' begin'
|
|
+#10' code;'#10' end;'#10' else'#10' code;'#10' end;'
|
|
+#10' end;'#10'end;'#10#10'procedure TMyClass.Code;'#10#10' procedure SubPr'
|
|
+'oc;'#10' begin'#10#10' end;'#10#10'var'#10' i: Integer;'#10'begin'#10' '
|
|
+'writeln(''TMyClass.Code '');'#10' repeat'#10#10' until ;'#10' for i:=1 t'
|
|
+'o 3 do'#10' Code;'#10' for i:=1 to 3 do'#10' begin'#10' Code;'#10' '
|
|
+' end;'#10'end;'#10#10'end.'#10#10
|
|
]);
|