From b3cf74e6ba94dd04570b63be81df64d7780d24c0 Mon Sep 17 00:00:00 2001
From: Roland Bengtsson <roland.bengtsson@aholadigital.com>
Date: Sat, 7 Dec 2024 21:35:05 +0200
Subject: [PATCH] For inMem SQLLike implementation.#27

---
 Source/BoldOclSymbolImplementations.pas | 38 +++++++++++++++++++++----
 1 file changed, 33 insertions(+), 5 deletions(-)

diff --git a/Source/BoldOclSymbolImplementations.pas b/Source/BoldOclSymbolImplementations.pas
index 512db77..6cc4048 100644
--- a/Source/BoldOclSymbolImplementations.pas
+++ b/Source/BoldOclSymbolImplementations.pas
@@ -2990,7 +2990,7 @@ procedure TBOS_Attributes.Evaluate(const Params: TBoldOclSymbolParameters);
   begin
     ClassInfo := Params.values[0] as TBoldClassTypeInfo;
     Name := help.CreateNewMember(Help.StringType) as TBAString;
-    for i := 0 to ClassInfo.AllMembers.Count - 1 do
+    for i := 0 to ClassInfo.AllMembersCount - 1 do
     begin
       MemberRTInfo := ClassInfo.AllMembers[i];
       if MemberRTInfo.IsAttribute then
@@ -3016,7 +3016,7 @@ procedure TBOS_AssociationEnds.Evaluate(const Params: TBoldOclSymbolParameters);
   begin
     ClassInfo := Params.values[0] as TBoldClassTypeInfo;
     Name := help.CreateNewMember(Help.StringType) as TBAString;
-    for i := 0 to ClassInfo.AllMembers.Count - 1 do
+    for i := 0 to ClassInfo.AllMembersCount - 1 do
     begin
       MemberRTInfo := ClassInfo.AllMembers[i];
       if MemberRTInfo.IsRole then
@@ -3110,10 +3110,38 @@ procedure TBOS_AllSubClasses.Evaluate(const Params: TBoldOclSymbolParameters);
   end;
 end;
 
+function SQLLikeToRegEx(const AExpression: string): string;
+var
+  l: integer;
+  Starts, Ends: boolean;
+begin
+  l := Length(AExpression);
+  if l > 1 then
+  begin
+    Starts := Copy(AExpression, 1, 1) = '%';
+    Ends := Copy(AExpression, l, 1) = '%';
+    if Starts and Ends then
+      result := '^.*' + Copy(AExpression, 2, l-2) + '.*$'
+    else
+    if Starts then
+      result := '^.*' + Copy(AExpression, 2, MaxInt) + '$'
+    else
+    if Ends then
+      result := '^' + Copy(AExpression, 1, l-1) + '.*$'
+    else
+      result := '^' + Copy(AExpression, 1, l) + '$'
+  end
+  else
+  if AExpression = '%' then
+    result := '.*'
+  else
+    result := '^' + AExpression + '$'
+end;
+
 function EscapeRegEx(const ASource: string): string;
 begin
-  result := StringReplace(ASource, '%', '', [rfReplaceAll]);
-  result := TPerlRegEx.EscapeRegExChars(result);
+  result := TPerlRegEx.EscapeRegExChars(ASource);
+  result := SQLLikeToRegEx(result);
 end;
 
 procedure TBOS_SQLLike.Evaluate(const Params: TBoldOclSymbolParameters);
@@ -4076,4 +4104,4 @@ initialization
 finalization
   FreeAndNil(G_OCLOperations);
 
-end.
\ No newline at end of file
+end.