--- Merging r31941 into '.':

U    rtl/objpas/classes/stringl.inc
--- Recording mergeinfo for merge of r31941 into '.':
 U   .

# revisions: 31941

git-svn-id: branches/fixes_3_0@31967 -

rtl/objpas/classes/stringl.inc

@@ -1391,6 +1391,8 @@ var
   CompareRes: PtrInt;
 begin
   Result := false;
+  if Not Sorted then 
+    exit;
   // Use binary search.
   L := 0;
   R := Count - 1;