testsimpleifdef4.out

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

unit testsimpleifdef4;

interface

implementation

procedure foo; cdecl; export;
{$IFDEF LINUX}

var
  I: Integer;
begin
  I := 3;
end;
{$ENDIF}{$IFDEF MSWINDOWS}
var
  k: integer;
begin
  k := 4;
end;{$ENDIF}

procedure bar;
begin
end;

end.