testcaseblock.out

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

unit testcaseblock;

interface

implementation

uses SysUtils, Controls, Math;

procedure fromborlandsstyleguide;
const
  csstart   = 1;
  csbegin   = 2;
  cstimeout = 3;
  csfoo     = 12;
  csbar     = 20;
  updatevalue = 200;
  sb_lineup = 1;
  sb_linedown = 2;
  sb_pageup = 3;
  sb_pagedown = 4;
var
  control: tcontrol;
  newrange, position, alignmargin: integer;
  x, y, j, scrollcode: integer;
  incr, fincrement, flinediv, finalincr, Count: integer;
  fpageincrement, fpagediv: integer;
begin
  newrange := max(newrange, position);
  case control.align of
    alleft, alnone: newrange := max(newrange, position);
    alright: Inc(alignmargin, control.Width);
  end;
  case x of
    csstart:
    begin
      j := updatevalue;
    end;
    csbegin: x := j;
    csfoo: x   := j;
    cstimeout:
    begin
      j := x;
      x := updatevalue;
    end;
  end;
  case scrollcode of
    sb_lineup, sb_linedown:
    begin
      incr      := fincrement div flinediv;
      finalincr := fincrement mod flinediv;
      Count     := flinediv;
    end;
    sb_pageup, sb_pagedown:
    begin
      incr      := fpageincrement;
      finalincr :=
        incr mod fpagediv;
      incr      := incr div fpagediv;
      Count     := fpagediv;
    end;
    else
      Count     := 0;
      incr      :=
        0;
      finalincr := 0;
  end;
  case x of
    csstart, csbegin: j := updatevalue;
    csfoo..csbar, 23: j := x + 1;
    cstimeout: j := x;
  end;
  case x of
    csstart, csbegin: j := updatevalue;
    csfoo..csbar, 23: j :=
        x + 1;
    cstimeout: j := x;
    else
      Inc(j);
  end;
  case x of
    csstart, csbegin:
    begin
      j := updatevalue;
      j := x;
      x := x + updatevalue;
    end;
    csfoo..csbar, 23:
    begin
      j := x + 1;
      j := x;
      x := x + updatevalue;
    end;
    cstimeout:
    begin
      j := x;
      j := j + 1;
    end;
  end;
  case x of
    csstart, csbegin:
    begin
      j := updatevalue;
      j := x;
      x := x + updatevalue;
    end;
    csfoo..csbar, 23:
    begin
      j := x + 1;
      j := x;
    end;
    cstimeout:
    begin
      j := x;
      j := j + 1;
      x := x + updatevalue;
    end;
    else
    begin
      Inc(j);
      j := updatevalue;
      x := x + updatevalue;
    end;
  end;
  case x of
    csstart, csbegin: j := updatevalue;
    else
      Inc(j);
      j := updatevalue;
      x := x + updatevalue;
  end;
  case x of
    csstart, csbegin: j := updatevalue;
    else
      if j > 3 then
        Inc(j);
      if x > 4 then
        j := updatevalue;
      if x = 5 then
        x := x + updatevalue;
  end;
  case x of
    csstart, csbegin: j := updatevalue;
    else
      x := 3;
      if j > 3 then
      begin
        Inc(j);
      end;
  end;
  case x of
    csstart, csbegin: j := updatevalue;
    else
      x := 3;
      if j > 3 then
      begin
        Inc(j);
      end;
      case y of
        csstart, csbegin:
          j := updatevalue;
        else
          x := 3;
          if j > 3 then
          begin
            Inc(j);
          end;
      end;
  end;
end;

procedure simplecase;
var
  li: integer;
begin
  li := random(5);
  case li of
    0: li := 1;
    1: li := li + 1;
    2:
    begin
      li := li + 1;
    end;
    else
      li := 0;
  end;
end;

procedure charcase;
var
  ch, ch2: char;
  li:      integer;
begin
  li :=
    random(5);
  ch := 'a';
  ch := char(Ord(ch) + li);
  case ch of
    'a': li := 1;
    'b': li := li + 1;
    'c':
    begin
      li := li + 1;
    end;
    'd': ch2 := 'e';
    else
      li := 0;
  end;
  ch := 'a';
end;

procedure complexcase;
var
  ia, ib: integer;
  ba:     boolean;
  liloop, liloop2: integer;
begin
  ia := random(10);
  ib := random(10);
  if ia > 5 then
    ba := True
  else
    ba := False;
  case random(7) of
    1: ia := 0;
    2: for liloop := 1 to
        10 do
        ia := ia + random(2);
    3: if ia > 5 then
        ba := False
      else
        ba := True;
    14: if ia > 5 then
        for
          liloop := 1 to 10 do
          ia := ia + random(2)
      else
        while ia < 50 do
          ia := ia + random(5);
    5: if ia > 6 then
        for liloop := 1 to 10 do
          ia := ia + random(2);
    else
      while ia < 50 do
        ia := ia + random(5);
  end;
end;

procedure layoutmycasestatement;
var
  ia, ib1, icc2: integer;
begin
  ;
  ;
  ;
  ;
  ;
  if random(10) > 4 then
  begin
    ia := random(20);
    case ia of
      1: ia := 10;
      2: ia := random(1000);
      3:
      begin
        ia  := random(1000);
        ib1 := ia + 10;
      end;
      34: ;
      5: case random(2) of
          0: ia := 1;
          1: ia := 0;
          else
            ia := 4;
        end;
      else
      begin
        raise Exception.Create('this sucks');
      end;
    end;
  end;
end;

procedure testnested;
var
  ia: integer;
begin
  case random(7) of
    0: ia := 0;
    1: case random(2) of
        0: ia := 1;
        2: ia := 2;
      end;
    2: case random(2) of
        0: ia := 1;
        2: case random(2) of
            0: ia := 1;
            2: ia := 2;
          end;
      end;
    3: case
        random(2) of
        0: ia := 1;
        2: case random(2) of
            0: ia := 1;
            2: case random(2) of
                0: ia := 1;
                2: ia := 2;
              end;
          end;
      end;
    4: case random(2) of
        0: case random(2) of
            0: ia := 1;
            2: ia := 2;
          end;
        2: case random(2) of
            0: ia := 1;
            2: case random(2) of
                0: ia := 1;
                2: ia := 2;
              end;
          end;
      end;
    5: case random(2) of
        0: case random(2) of
            0: ia := 1;
            2: ia := 2;
          end;
        2: case random(2) of
            0: case random(2) of
                0: ia :=
                    1;
                2: ia := 2;
              end;
            2: case random(2) of
                0: ia := 1;
                2: ia := 2;
              end;
          end;
      end;
    6: case random(2) of
        0: case random(2) of
            0: ia := 1;
            2: ia := 2;
          end;
        2: case random(2) of
            0: case random(2) of
                0: ia :=
                    1;
                2: ia := 2;
              end;
            2: case random(2) of
                0: ia := 1;
                2: case random(2) of
                    0: ia := 1;
                    2: ia := 2;
                  end;
              end;
          end;
      end;
  end;
end;

procedure testelse;
var
  li: integer;
begin
  case random(7) of
    0: li := 1;
    else
      li := 0;
  end;
  case random(7) of
    0: li := 1;
    else
    begin
      li := 0;
    end;
  end;
  case random(7) of
    0: li := 1;
    else
    begin
      case random(7) of
        0: li := 1;
        else
          li := 0;
      end;
    end;
  end;
  case random(7)
    of
    0: li := 1;
    else
    begin
      case random(7) of
        0: li := 1;
        else
        begin
          case random(7) of
            0: li :=
                1;
            else
              li := 0;
          end;
        end;
      end;
    end;
  end;
end;

end.