testlayoutbare2.out

格式化源码的最新板

unit testlayoutbare2;

interface

implementation

procedure test;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 3 then
    if ia > 4 then
    begin
      ib := 10;
    end;
  if ia > 4 then
    if ia > 4 then
    begin
      ib := 10;
    end;
  if ia > 4 then
    if ia > 4 then
    begin
      ib := 10;
    end;
end;

procedure test2;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 3 then
    if ia > 4 then
    begin
      ib := 10;
    end;
  if ia > 4 then
    if ia > 4 then
    begin
      ib := 10;
    end;
  if ia > 4 then
    if ia > 4 then
    begin
      ib := 10;
    end;
end;

procedure test3;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 3 then
    if ia > 4 then
      ib :=
        10;
  if ia > 4 then
    ib := 10;
  if ia > 4 then
    ib := 0;
end;

procedure test4;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 3 then
    if ia > 4 then
    begin
      ib := 10;
    end;
  if ia > 4 then
  begin
    ib :=
      10;
  end;
end;

procedure testend1;
var
  sa, sb: string;
begin
  sa := 'Fred ';
  sb := sa + 'Jim';
  sa :=
    sa + #40;
  if sa = '' then
  begin
    sa := sa + 'narf';
  end;
end;

procedure testend2;
var
  sa, sb: string;
begin
  sa := 'Fred ';
  sb := sa + 'Jim';
  sa := sa + #40;
  if sa = '' then
    if sa = 'x' then
    begin
      sa := sa + 'narf';
    end;
end;

procedure testend3;
var
  sa, sb: string;
begin
  sa := 'Fred ';
  sb := sa + 'Jim';
  sa := sa + #40;
  if sa = '' then
    if sb = 'x' then
      if sa <> 'foo' then
      begin
        sa := sa + 'narf';
      end;
end;

procedure testend4;
var
  sa, sb: string;
begin
  sa := 'Fred ';
  sb := sa + 'Jim';
  sa := sa + #40;
  if sa = '' then
    if sb = 'x' then
      if sa <> 'foo' then
        if sa = 'groo' then
        begin
          sa := sa + 'narf';
        end;
end;

procedure testend5;
var
  sa, sb: string;
begin
  sa := 'Fred ';
  sb := sa + 'Jim';
  begin
    sa :=
      sa + #40;
    if sa = '' then
      if sb = 'x' then
        if sa <> 'foo' then
          if sa = 'groo' then
          begin
            sa := sa + 'narf';
          end;
  end;
end;

end.