lazarus/components/codetools/examples/testscompleteblock/casecolon1_result.inc
2009-08-20 06:44:46 +00:00

11 lines
78 B
PHP

{%MainUnit unit1.pas}
procedure Do1;
begin
case i of
1: ;
end;
end;