* Fix bug ID #0038580: Empty text for startsstr

git-svn-id: trunk@48898 -

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;