testblanklineremoval.out

来自「格式化源码的最新板」· OUT 代码 · 共 73 行

unit testblanklineremoval;

interface

implementation

uses SysUtils;

procedure testblanklines1;
var
  a: integer;
  b: string;
  c, d, e, f: double;
begin
end;

procedure testblanklines2;
var
  a: integer;

  function geta: integer;
  begin
    Result := a + 1;
  end;

var
  b: string;
  c, d, e, f: double;
begin
end;

procedure testblanklines3;
var
  a: integer;

  function geta: integer;
  begin
    Result := a + 1;
  end;

var
  b: string;

  function getb: string;
  begin
    Result := b + IntToStr(a);
  end;

var
  c, d, e, f: double;
begin
end;

procedure testblanklines4;
var
  a: integer;

  function geta: integer;
  var
    x, y, z: currency;
    q: string;
  begin
    Result := a + 1;
  end;

var
  b: string;
  c, d, e, f: double;
begin
end;

end.