testconstbug.out

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

unit testconstbug;

interface

implementation

procedure a(pb, pc: integer);
begin
end;

var
  b, c: integer;

const
  effrandlinks = 28;
  effrandoben = 15;
  effrandunten = effrandoben + 102;
  effrandrechts = effrandlinks + 293;
  effmax = 4;
  effmin = 1;
  efffaktor: extended = (effrandunten - effrandoben) / (effmax - effmin);

procedure test;
begin
  a(b, c);
end;

end.