From aa3a7b7eb8be88cd1bc775d872832549bc189e1d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 4 Oct 2015 08:07:51 +0000
Subject: [PATCH] * Exit find if not sorted (bug id 28774)

git-svn-id: trunk@31941 -
---
 rtl/objpas/classes/stringl.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 3f066391c3..a3c2495316 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -1390,6 +1390,8 @@ var
   CompareRes: PtrInt;
 begin
   Result := false;
+  if Not Sorted then 
+    exit;
   // Use binary search.
   L := 0;
   R := Count - 1;