paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 12:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: examples: fixed completeblock

Browse Source 
git-svn-id: trunk@56266 -
This commit is contained in:
mattias 2017-11-03 22:28:27 +00:00
parent 4b044297a1
commit 9d8b18caee
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -821,6 +821,7 @@ components/codetools/examples/scanexamples/brokenfilenames.pas svneol=native#tex
components/codetools/examples/scanexamples/brokenincfiles.inc svneol=native#text/plain
components/codetools/examples/scanexamples/changeparamlist1.pas svneol=native#text/plain
components/codetools/examples/scanexamples/commentsidentifiers.pas svneol=native#text/plain
components/codetools/examples/scanexamples/completeprocbeginend.pas svneol=native#text/plain
components/codetools/examples/scanexamples/completion1.pas svneol=native#text/plain
components/codetools/examples/scanexamples/directives1.pas svneol=native#text/plain
components/codetools/examples/scanexamples/empty.inc svneol=native#text/plain

6
components/codetools/examples/completeblock.pas
View File

@ -49,7 +49,7 @@ begin
try
if Paramcount>0 then begin
if Paramcount<4 then begin
writeln('Usage: '+ParamStrUTF8(0)+' filename line column define1 define2');
writeln('Usage: '+ParamStrUTF8(0)+' filename line column define1 define2 ...');
exit;
end;
Filename:=ExpandFileNameUTF8(ParamStrUTF8(1));
@ -58,9 +58,9 @@ begin
for p:=4 to Paramcount do
Defines.Add(ParamStrUTF8(p));
end else begin
Filename:=ExpandFileNameUTF8('testscompleteblock/procedurebegin1.inc');
Filename:=ExpandFileNameUTF8('scanexamples/completeprocbeginend.pas');
X:=1;
Y:=4;
Y:=6;
Defines.Add('procedurebegin');
end;

7
components/codetools/examples/scanexamples/completeprocbeginend.pas Normal file
View File

@ -0,0 +1,7 @@
unit CompleteProcBeginEnd;
interface
implementation
procedure DoIt;
begin
end.