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

* fix for 9770

Browse Source 
git-svn-id: trunk@8689 -
This commit is contained in:
marco 2007-09-30 11:23:33 +00:00
parent f5250c6433
commit 7429c4871b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/strutils.pp
View File

@ -350,17 +350,22 @@ end;
Function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string;
var i,j : SizeUInt;
k : SizeInt;
begin
j:=length(ASubText);
i:=length(AText);
if AStart>i then
aStart:=i+1;
k:=i-AStart+1;
if ALength> k then
ALength:=k;
SetLength(Result,i+j-ALength);
move (AText[1],result[1],AStart-1);
move (ASubText[1],result[AStart],j);
move (AText[AStart+ALength], Result[AStart+j],i+1-AStart-ALength);
end;
Function RandomFrom(const AValues: array of string): string; overload;
begin