testforward.out

格式化源码的最新板

unit testforward;

interface

implementation

procedure haggis; forward;
function fred(b1, b2: boolean): boolean; forward;

var
  liwonk: integer;

procedure jim;
var
  b: boolean;
begin
  b := False;
  b := fred(True, b);
  fred(b, b);
end;

function joe: integer; forward;

function fred;
begin
  Result := b1 or b2;
  haggis;
end;

const
  narf = 'So, what are we going to do tonight, brain?';

function joe: integer;
begin
  Result := 3;
  liwonk := 12;
end;

procedure haggis;
begin
  fred(
    True, joe > 4);
end;

procedure bob1; forward;

procedure bob2;
begin
  bob1;
end;

function fugu1: integer; safecall; forward;

procedure bob1;
begin
  bob2;
end;

function fugu2: integer; safecall;
begin
  Result := fugu1 * 2;
end;

function fugu1: integer;
begin
  Result := fugu2 div 2;
end;

end.