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

codetools: examples: filename as param

Browse Source 
git-svn-id: trunk@41691 -
This commit is contained in:
mattias 2013-06-12 11:43:37 +00:00
parent 9fab3a68db
commit 74535103a4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/examples/testunitdirectives.lpr
View File

@ -41,12 +41,16 @@ var
FirstSortedIndex: integer;
LastSortedIndex: integer;
begin
if (ParamCount>=1) and (Paramcount<>1) then begin
if (ParamCount>1) then begin
writeln('Usage:');
writeln(' ',ParamStr(0));
writeln(' ',ParamStr(0),' <filename>');
end;
Filename:=ExpandFileName(SetDirSeparators('scanexamples/directives1.pas'));
if Paramcount=1 then
Filename:=ParamStrUTF8(1)
else
Filename:=SetDirSeparators('scanexamples/directives1.pas');
Filename:=ExpandFileName(Filename);
// load the file
Code:=CodeToolBoss.LoadFile(Filename,true,false);