paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed example

Browse Source 
git-svn-id: trunk@56264 -
This commit is contained in:
mattias 2017-11-03 22:16:07 +00:00
parent 727f6ba694
commit 070589661a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/examples/codecompletion.lpr
View File

@ -39,7 +39,7 @@ var
Code: TCodeBuffer; Code: TCodeBuffer;
X: Integer; X: Integer;
Y: Integer; Y: Integer;
TopLine: Integer; TopLine, BlockTopLine, BlockBottomLine: Integer;
Filename: String; Filename: String;
begin begin
if (ParamCount>=1) and (Paramcount<>3) then begin if (ParamCount>=1) and (Paramcount<>3) then begin
@ -70,7 +70,8 @@ begin
raise Exception.Create('loading failed '+Filename); raise Exception.Create('loading failed '+Filename);
// complete code // complete code
if CodeToolBoss.CompleteCode(Code,X,Y,TopLine,NewCode,NewX,NewY,NewTopLine,false) if CodeToolBoss.CompleteCode(Code,X,Y,TopLine,NewCode,NewX,NewY,NewTopLine,
BlockTopLine,BlockBottomLine,false)
then begin then begin
writeln('Code completed: ',NewCode.Filename,' Line=',NewY,' Column=',NewX); writeln('Code completed: ',NewCode.Filename,' Line=',NewY,' Column=',NewX);
writeln(Code.Source); writeln(Code.Source);