From 7f66cdad7c33f582cffea87de8f5276aff5c6a82 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 22 Apr 2017 11:13:07 +0000
Subject: [PATCH] * Some improvements to example

git-svn-id: trunk@35894 -
---
 packages/fcl-base/examples/testapp.pp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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