paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 11:59:36 +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; Result:=Nil;
if aStart>aEnd then exit; if aStart>aEnd then exit;
SetLength(Result,aEnd-aStart+1); SetLength(Result,aEnd-aStart+1);
For I:=0 to Count-1 do For I:=aStart to aEnd do
Result[i]:=Objects[i]; Result[i-aStart]:=Objects[i];
end; end;
function TStrings.ToStringArray: TStringDynArray; function TStrings.ToStringArray: TStringDynArray;
@ -1052,8 +1052,8 @@ begin
Result:=Nil; Result:=Nil;
if aStart>aEnd then exit; if aStart>aEnd then exit;
SetLength(Result,aEnd-aStart+1); SetLength(Result,aEnd-aStart+1);
For I:=0 to Count-1 do For I:=aStart to aEnd do
Result[i]:=Strings[i]; Result[i-aStart]:=Strings[i];
end; end;