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

codetools: examples: fixed finddeclaration

Browse Source 
git-svn-id: trunk@56267 -
This commit is contained in:
mattias 2017-11-03 22:38:40 +00:00
parent 9d8b18caee
commit 0813733813
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/finddeclaration.lpr
View File

@ -40,7 +40,7 @@ var
NewX, NewY, NewTopLine: integer; NewX, NewY, NewTopLine: integer;
Code: TCodeBuffer; Code: TCodeBuffer;
X: Integer; X: Integer;
Y: Integer; Y, BlockTopLine, BlockBottomLine: Integer;
Filename: String; Filename: String;
Line: String; Line: String;
begin begin
@ -103,7 +103,8 @@ begin
writeln('Line ',Y,': ',copy(Line,1,X-1),'|',copy(Line,X,length(Line))); writeln('Line ',Y,': ',copy(Line,1,X-1),'|',copy(Line,X,length(Line)));
// Step 2: find declaration // Step 2: find declaration
if CodeToolBoss.FindDeclaration(Code,X,Y,NewCode,NewX,NewY,NewTopLine) then if CodeToolBoss.FindDeclaration(Code,X,Y,NewCode,NewX,NewY,NewTopLine,
BlockTopLine,BlockBottomLine) then
begin begin
writeln('Declaration found: ',NewCode.Filename,' Line=',NewY,' Column=',NewX); writeln('Declaration found: ',NewCode.Filename,' Line=',NewY,' Column=',NewX);
end else begin end else begin