paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 17:26:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes from Luiz Am?rico

Browse Source
This commit is contained in:
marco 2004-05-17 07:33:01 +00:00
parent 13a860eefc
commit ed6ecf40db
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/strutils.pp
View File

@ -477,11 +477,11 @@ Function PosEx(const SubStr, S: string; Offset: Cardinal): Integer;
var i : pchar;
begin
if (offset<1) or (offset>length(s)) then exit(0);
i:=strpos(@s[1],@substr[offset]);
i:=strpos(@s[offset],@substr[1]);
if i=nil then
PosEx:=0
else
PosEx:=(i-pchar(s))+offset;
PosEx:=succ(i-pchar(s));
end;
@ -658,7 +658,10 @@ end.
{
$Log$
Revision 1.4 2004-03-19 12:54:22 marco
Revision 1.5 2004-05-17 07:33:01 marco
* fixes from Luiz Am?rico
Revision 1.4 2004/03/19 12:54:22 marco
* more strutils small things
Revision 1.3 2004/03/18 16:55:47 marco