Bläddra i källkod

[expressions] some fixes

Exilon 3 år sedan
förälder
incheckning
7da03142e8
1 ändrade filer med 3 tillägg och 3 borttagningar
  1. 3 3
      Quick.Expression.pas

+ 3 - 3
Quick.Expression.pas

@@ -146,7 +146,7 @@ var
   str : string;
   str : string;
 begin
 begin
   i := LOWSTR;
   i := LOWSTR;
-  idx := 0;
+  idx := LOWSTR;
   count := 0;
   count := 0;
   Result := TMultiExpression.Create;
   Result := TMultiExpression.Create;
   exp := aExpression.TrimLeft;
   exp := aExpression.TrimLeft;
@@ -176,8 +176,8 @@ begin
       if (rexp.Combine = TCombine.coNone) and not (exp.IsEmpty) then raise ENotValidExpression.Create('Not valid expression defined!');
       if (rexp.Combine = TCombine.coNone) and not (exp.IsEmpty) then raise ENotValidExpression.Create('Not valid expression defined!');
       //add to multiexpression
       //add to multiexpression
       Result.Add(rexp);
       Result.Add(rexp);
-      idx := 0;
-      i := -1;
+      idx := LOWSTR;
+      i := 0;
     end;
     end;
     Inc(i);
     Inc(i);
   end;
   end;