diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-07 18:58:23 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-07 18:58:23 +0000 |
commit | 981e70aba6789628dda360fbd2fd77ad3837594b (patch) | |
tree | 8003246839f6bd045e7bddc36a54a298b5ba1c16 | |
parent | a67b1d07e29564244926b8a83fd0c7c54eeb2fd2 (diff) | |
download | fpc-981e70aba6789628dda360fbd2fd77ad3837594b.tar.gz |
* Fix bug ID 0038580: Empty text for startsstr
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48898 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/rtl-objpas/src/inc/strutils.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/rtl-objpas/src/inc/strutils.pp b/packages/rtl-objpas/src/inc/strutils.pp index 8233c1ecce..b89ad41c45 100644 --- a/packages/rtl-objpas/src/inc/strutils.pp +++ b/packages/rtl-objpas/src/inc/strutils.pp @@ -1051,7 +1051,7 @@ begin if (Length(AText) >= Length(ASubText)) and (ASubText <> '') then Result := StrLComp(PChar(ASubText), PChar(AText), Length(ASubText)) = 0 else - Result := False; + Result := (AsubText=''); end; |