littletest57.obs

格式化源码的最新板

unit littletest57;interface implementation {$ifdef FOO}
procedure Bar;
var
  b, s: Boolean;
begin
    if b then
{$IFDEF BIGFISH}
      s := b
    else
      s := '';

{$ELSE}
  {$IFNDEF FISHDANCE}
    if b then
    begin
       s := b;
    end
    else
    begin
      s := b;
    end
    else
    if s <> b then
    begin
       S := b;
    end else
    begin
      S := b;
    end;
  
{$ELSE}
    begin
      S := b;
    end
    else
    begin
      S := b;
    end;
  
{$ENDIF}
{$ENDIF}

end;

{$ENDIF}end.