mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-09 08:47:59 +02:00
codetools: block completion: added example for if then begin else
git-svn-id: trunk@20688 -
This commit is contained in:
parent
9650017b1a
commit
51d5f674d6
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -166,6 +166,7 @@ components/codetools/examples/testscompleteblock/casecolon1.inc svneol=native#te
|
||||
components/codetools/examples/testscompleteblock/caseelseend1.inc svneol=native#text/plain
|
||||
components/codetools/examples/testscompleteblock/caseend1.inc svneol=native#text/plain
|
||||
components/codetools/examples/testscompleteblock/ifbegin1.inc svneol=native#text/plain
|
||||
components/codetools/examples/testscompleteblock/ifbeginelse1.inc svneol=native#text/plain
|
||||
components/codetools/examples/testscompleteblock/procedurebegin1.inc svneol=native#text/plain
|
||||
components/codetools/examples/testscompleteblock/procedurebeginend1.inc svneol=native#text/plain
|
||||
components/codetools/examples/testscompleteblock/procedurebeginifbegin1.inc svneol=native#text/plain
|
||||
|
@ -0,0 +1,12 @@
|
||||
{%MainUnit unit1.pas}
|
||||
procedure Do1;
|
||||
begin
|
||||
if True then
|
||||
begin
|
||||
Test() //caret position
|
||||
else
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user