Changeset 25 for trunk/Library/ACLStringUtility.pas

Timestamp:

Aug 1, 2006, 8:51:54 PM (19 years ago)

Author:

RBRi

Message:

refactoring for cmd line parameters handling finished

File:

• trunk/Library/ACLStringUtility.pas (modified) (2 diffs)

trunk/Library/ACLStringUtility.pas

@@ -284 +284 @@
 Function BoolToStr( const b: boolean ): string;
 
-// Return true if param matches the form
-// /Flag:value
-// dash (-) can be used instead of slash (/)
-// colon can be omitted
-function MatchValueParam( const Param: string;
-                          const Flag: string;
-                          var Value: string ): boolean;
-
-// Return true if param matches the form
-// /Flag
-// dash (-) can be used instead of slash (/)
-function MatchFlagParam( const Param: string;
-                         const Flag: string ): boolean;
 
 Implementation
@@ -1448 +1435 @@
 end;
 
-// Return true if param matches the form
-// /Flag:value
-// dash (-) can be used instead of slash (/)
-// colon can be omitted
-function MatchValueParam( const Param: string;
-                          const Flag: string;
-                          var Value: string ): boolean;
-begin
-  Result := false;
-
-  if Param = '' then
-    exit;
-
-  if     ( Param[ 1 ] <> '/' )
-     and ( Param[ 1 ] <> '-' ) then
-    exit;
-
-  if not StringsSame( Copy( Param, 2, Length( Flag ) ),
-                      Flag ) then
-    exit;
-
-  Result := true;
-
-  Value := StrRightFrom( Param, 2 + Length( Flag ) );
-  if Value <> '' then
-    if Value[ 1 ] = ':' then
-      Delete( Value, 1, 1 );
-end;
-
-// Return true if param matches the form
-// /Flag
-// dash (-) can be used instead of slash (/)
-function MatchFlagParam( const Param: string;
-                         const Flag: string ): boolean;
-begin
-  Result := false;
-
-  if Param = '' then
-    exit;
-
-  if     ( Param[ 1 ] <> '/' )
-     and ( Param[ 1 ] <> '-' ) then
-    exit;
-
-  Result := StringsSame( StrRightFrom( Param, 2 ),
-                         Flag );
-end;
-
 Initialization
   InitHexDigitMap;