paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 05:08:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added copy,length and setlength

Browse Source 
git-svn-id: trunk@8306 -
This commit is contained in:
michael 2007-08-25 13:41:22 +00:00
parent 95c712faa1
commit 287c262d10
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/system.fpd
View File

@ -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;