Changeset 407

Timestamp:

May 22, 2016, 3:06:49 PM (9 years ago)

Author:

RBRi

Message:

lib is now back in sync with old trunk

File:

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

trunk/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
@@ -52 +57 @@
 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;