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

codetools: fixed code completion example

Browse Source 
git-svn-id: trunk@13504 -
This commit is contained in:
mattias 2007-12-28 12:34:18 +00:00
parent b883a482c5
commit 25984ff7aa
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

@ -57,7 +57,8 @@ begin
X:=3;
Y:=41;
TopLine:=20;
Filename:=ExpandFileName('scanexamples'+PathDelim+'completion1.pas');
if (ParamCount>=3) then begin
Filename:=ExpandFileName(ParamStr(1));
X:=StrToInt(ParamStr(2));
@ -79,7 +80,7 @@ begin
end;
except
on E: Exception do begin
writeln(E.Message);
writeln('EXCEPTION: '+E.Message);
end;
end;
end.