lazarus/components/codetools/examples/testscompleteblock/ifbeginelse1.inc
2009-06-21 10:56:50 +00:00

13 lines
123 B
PHP

{%MainUnit unit1.pas}
procedure Do1;
begin
if True then
begin
Test() //caret position
else
begin
end;
end;