--- Merging r13880 into '.':

U    rtl/inc/system.fpd

git-svn-id: branches/fixes_2_4@13881 -

rtl/inc/system.fpd

@@ -57,5 +57,8 @@ Procedure SetLength(Var S : AStringType; Len : Integer);
 Procedure SetLength(Var A : DynArrayType; Len : Integer);
 Function Length(S : AStringType) : Integer;
 Function Length(A : DynArrayType) : Integer;
-Procedure WriteStr(Var S : String; Args : Arguments);
-Procedure ReadStr(Var S : String; Args : Arguments);
+Procedure WriteStr(Out S : String; Args : Arguments);
+Procedure ReadStr(Const S : String; Args : Arguments);
+Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : PackedArrayType);
+Procedure UnPack(Const Z : PackedArrayType; Out A : UnpackedArrayType; StartIndex : TIndexType);
+