diff options
Diffstat (limited to 'utils/unicode/grbtree.pas')
-rw-r--r-- | utils/unicode/grbtree.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/unicode/grbtree.pas b/utils/unicode/grbtree.pas index b493619a43..259fbad54b 100644 --- a/utils/unicode/grbtree.pas +++ b/utils/unicode/grbtree.pas @@ -419,8 +419,10 @@ begin end; // Stop if found - if (cp.Compare(q^.Data,AData) = 0) then + if (cp.Compare(q^.Data,AData) = 0) then begin + Result := q; break; + end; last := dir; dir := (cp.Compare(q^.Data,AData) < 0); |