* Added copy,length and setlength

git-svn-id: trunk@8306 -

rtl/inc/system.fpd

@@ -51,3 +51,9 @@ Procedure Write (Args : Arguments);
 Procedure Writeln (Args : Arguments);
 Procedure Write (Var F : Text; Args : Arguments);
 Procedure WriteLn (Var F : Text; Args : Arguments);
+Function Copy(S : AStringType; Index,Count : Integer) : String;
+Function Copy(A : DynArrayType; Index,Count : Integer) : DynArray;
+Procedure SetLength(Var S : AStringType; Len : Integer);
+Procedure SetLength(Var A : DynArrayType; Len : Integer);
+Function Length(S : AStringType) : Integer;
+Function Length(A : DynArrayType) : Integer;