paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 18:29:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #722: If the start position of AnsiString Copy is less than 1,

Browse Source 
it will be set to 1 (same behaviour as in Delphi)
This commit is contained in:
sg 1999-11-28 11:24:04 +00:00
parent cc5683ace5
commit 87d0345efc
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/astrings.inc
View File

@ -455,6 +455,8 @@ var
begin
ResultAddress:=Nil;
dec(index);
if Index < 0 then
Index := 0;
{ Check Size. Accounts for Zero-length S, the double check is needed because
Size can be maxint and will get <0 when adding index }
if (Size>Length(S)) or
@ -640,7 +642,11 @@ end;
{
$Log$
Revision 1.36 1999-11-25 13:34:57 michael
Revision 1.37 1999-11-28 11:24:04 sg
* Fixed bug 722: If the start position of AnsiString Copy is less than 1,
it will be set to 1 (same behaviour as in Delphi)
Revision 1.36 1999/11/25 13:34:57 michael
+ Added Ansistring setstring call
Revision 1.35 1999/11/06 14:35:38 peter