[Linq] fixed issue filter returns more items than expected

Author: exilon

Quick.Linq.pas

@@ -371,6 +371,11 @@ function TLinqQuery<T>.Select(const aPropertyName: string): TFlexArray;
   if fWhereClause = nil then raise ELinqNotValidExpression.Create('Not valid expression defined!');
   for obj in fList do
   begin
+    {$IFNDEF FPC}
+    if obj = nil then continue;
+    {$ELSE}
+    if Pointer(obj) = nil then continue;
+    {$ENDIF}
     if fWhereClause.Validate(obj) then
     begin
       //value := TRTTI.GetProperty(obj,aPropertyName);
@@ -396,6 +401,11 @@ function TLinqQuery<T>.Select: TxArray<T>;
   if fWhereClause = nil then raise ELinqNotValidExpression.Create('Not valid expression defined!');
   for obj in fList do
   begin
+    {$IFNDEF FPC}
+    if obj = nil then continue;
+    {$ELSE}
+    if Pointer(obj) = nil then continue;
+    {$ENDIF}
     if fWhereClause.Validate(obj) then Result.Add(obj);
   end;
   DoOrderBy(Result);
@@ -412,6 +422,11 @@ function TLinqQuery<T>.SelectFirst: T;
   if fWhereClause = nil then raise ELinqNotValidExpression.Create('Not valid expression defined!');
   for obj in fList do
   begin
+    {$IFNDEF FPC}
+    if obj = nil then continue;
+    {$ELSE}
+    if Pointer(obj) = nil then continue;
+    {$ENDIF}
     if fWhereClause.Validate(obj) then Exit(obj);
   end;
 end;
@@ -427,6 +442,11 @@ function TLinqQuery<T>.SelectLast: T;
   if fWhereClause = nil then raise ELinqNotValidExpression.Create('Not valid expression defined!');
   for obj in fList do
   begin
+    {$IFNDEF FPC}
+    if obj = nil then continue;
+    {$ELSE}
+    if Pointer(obj) = nil then continue;
+    {$ENDIF}
     if fWhereClause.Validate(obj) then Result := obj;
   end;
 end;
@@ -446,6 +466,11 @@ function TLinqQuery<T>.SelectTop(aLimit: Integer): TxArray<T>;
   i := 0;
   for obj in fList do
   begin
+    {$IFNDEF FPC}
+    if obj = nil then continue;
+    {$ELSE}
+    if Pointer(obj) = nil then continue;
+    {$ENDIF}
     if fWhereClause.Validate(obj) then
     begin
       Result.Add(obj);