Changeset 309 for branches/2.19_branch/Library/AStringUtilityUnit.pas

Timestamp:

Jul 28, 2008, 8:26:58 PM (17 years ago)

Author:

RBRi

Message:

more cleanup

File:

• branches/2.19_branch/Library/AStringUtilityUnit.pas (modified) (2 diffs)

branches/2.19_branch/Library/AStringUtilityUnit.pas

@@ -8 +8 @@
   Classes,
   ACLString;
-
-// Puts specified program command line parameter
-// into AString
-procedure AString_ParamStr( item: byte;
-                            S: TAString );
 
 // Splits up an AString at the given separator CHAR
@@ -57 +52 @@
 uses
   ACLUtility;
-
-procedure AString_ParamStr( item: byte;
-                            S: TAString );
-var
-  p: pchar;
-  l: longint;
-begin
-  GetCommandLineParameter( item, p, l );
-  S.AssignPCharLen( p, l );
-end;
 
 procedure AStringToList( S: TAstring;