Unit ok_longcode_indentation

Uses
Classes, Interfaces, Objects and Records
Types
Constants
Variables

Description

 

Overview

Functions and Procedures

procedure Foo1;
procedure Foo2;
procedure Foo3;
procedure Foo4;
procedure Foo5;
procedure Foo6;
procedure Foo7;

Description

Functions and Procedures

procedure Foo1;

Should cut nothing:

one
  two
    three

procedure Foo2;

Should cut 4 spaces:

one
two
three

procedure Foo3;

Should cut 2 spaces:

  one
two
  three

procedure Foo4;

Should cut nothing (there's a tab here):

    one
	two
    three

procedure Foo5;

Should cut tab + 2 spaces:

one
  two
three

procedure Foo6;

Should cut 4 spaces (there's trailing whitespace in 1st lines here, that should be ignored):

                 
                  
one

procedure Foo7;

Should cut 4 spaces (empty line doesn't shorten IndentationPrefix):

if something then
begin
  // empty line below

end;