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

* Fix wrong start/stop index

Browse Source 
git-svn-id: trunk@44635 -
This commit is contained in:
michael 2020-04-07 14:03:42 +00:00
parent 3f5f91f194
commit 2dfc5b160b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/classes/stringl.inc
View File

@ -1033,8 +1033,8 @@ begin
Result:=Nil;
if aStart>aEnd then exit;
SetLength(Result,aEnd-aStart+1);
For I:=0 to Count-1 do
Result[i]:=Objects[i];
For I:=aStart to aEnd do
Result[i-aStart]:=Objects[i];
end;
function TStrings.ToStringArray: TStringDynArray;
@ -1052,8 +1052,8 @@ begin
Result:=Nil;
if aStart>aEnd then exit;
SetLength(Result,aEnd-aStart+1);
For I:=0 to Count-1 do
Result[i]:=Strings[i];
For I:=aStart to aEnd do
Result[i-aStart]:=Strings[i];
end;