* Fix typo in ansiEndsString, resulting in wrong behaviour

git-svn-id: trunk@38777 -

packages/rtl-objpas/src/inc/strutils.pp

@@ -967,7 +967,7 @@ end;
 
 function AnsiEndsStr(const ASubText, AText: string): Boolean;
 begin
-  Result := (ASubText = '') or (RightStr(AText, Length(ASubText)) = AText);
+  Result := (ASubText = '') or (RightStr(AText, Length(ASubText)) = ASubText);
 end;