/components/codetools/examples/testscompleteblock/casecolon1.inc

http://github.com/graemeg/lazarus · Pascal · 9 lines · 6 code · 2 blank · 1 comment · 0 complexity · 6f064ba51ae0422cdc706177a98c3c21 MD5 · raw file 

    

  1. {%MainUnit unit1.pas}
    2. 

  2. procedure Do1;
    3. 

  3. begin
    4. 

  4.   case i of
    5. 

  5.   1:
    6. 

  6. 

  7.   end;
    8. 

  8. end;
    9.