testdefines.out

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

unit testdefines;

interface

implementation {$UNDEF FOO}{$UNDEF BAR}

procedure test1;
begin
{$IF (not Defined(FOO)) and (not defined(BAR))}
end;

{$IFEND}{$IF Defined(FOO) or defined(BAR)}

  1 wakka wakka wakka
{$IFEND}{$DEFINE FOO}

procedure test2;
begin
{$IF Defined(FOO) or defined(BAR)}
end;

{$IFEND}{$IF defined(BAR)}
  2 wakka wakka wakka
{$IFEND}{$IF not Defined(FOO)}

  3 wakka wakka wakka
{$IFEND}{$UNDEF FOO}{$DEFINE BAR}

procedure test3;
begin
{$IF Defined(FOO) or defined(BAR)}
end;

{$IFEND}{$IF Defined(FOO)}
  4 wakka wakka wakka
{$IFEND}{$IF Defined(FOO) and defined(BAR)}

  5 wakka wakka wakka
{$IFEND}{$DEFINE FOO}{$DEFINE BAR}{$UNDEF FISH}

procedure test4;
begin
{$IF (Defined(FOO) and defined(BAR)) and not defined(FISH)}
end;
{$IFEND}
{$IF Defined(FOO) and defined(BAR) and defined(FISH)}
  6 wakka wakka wakka
{$IFEND}
{$IF (Defined(FOO) or defined(BAR)) and defined(FISH)}
  7 wakka wakka wakka
{$IFEND}
{$DEFINE FISH}
procedure test5;
begin
{$IF Defined(FOO) and defined(BAR) and defined(FISH)}
end;{$IFEND}

procedure test6;
begin
{$IF Defined(FOO) or defined(BAR) or defined(FISH)}
end;

{$IFEND}{$IF (Defined(FOO) or defined(BAR)) and not defined(FISH)}
  8 wakka wakka wakka

{$IFEND}{$IF not defined(FISH) and (Defined(FOO) or defined(BAR)) }
  9 wakka wakka wakka

{$IFEND}

end.