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

* Some improvements to example

Browse Source 
git-svn-id: trunk@35894 -
This commit is contained in:
michael 2017-04-22 11:13:07 +00:00
parent b6123bb1a8
commit 7f66cdad7c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-base/examples/testapp.pp
View File

@ -6,9 +6,9 @@ program testapp;
uses custapp,classes; uses custapp,classes;
Const Const
ShortOpts = 'abc:d:012'; ShortOpts = 'iabc:d:012';
Longopts : Array[1..6] of String = ( Longopts : Array[1..7] of String = (
'add:','append','delete:','verbose','create:','file:'); 'insensitive','add:','append','delete:','verbose','create:','file:');
Type Type
TTestApp = Class(TCustomApplication) TTestApp = Class(TCustomApplication)
@ -23,6 +23,7 @@ Var
Opts,FN,Args : TStrings; Opts,FN,Args : TStrings;
begin begin
CaseSensitiveOptions:=not HasOption('i','insensitive');
Writeln('Exe name : ',ExeName); Writeln('Exe name : ',ExeName);
Writeln('Help file : ',HelpFile); Writeln('Help file : ',HelpFile);
Writeln('Terminated : ',Terminated); Writeln('Terminated : ',Terminated);
@ -60,6 +61,7 @@ begin
Writeln('Option append found: ',HasOption('append')); Writeln('Option append found: ',HasOption('append'));
Writeln('Option a or append found: ',HasOption('a','append')); Writeln('Option a or append found: ',HasOption('a','append'));
Writeln('-----------------------'); Writeln('-----------------------');
Opts.Clear;
GetEnvironmentList(Opts,True); GetEnvironmentList(Opts,True);
Writeln('Found ',Opts.Count,' environment variables'); Writeln('Found ',Opts.Count,' environment variables');
For I:=0 to Opts.Count-1 do For I:=0 to Opts.Count-1 do