Преглед на файлове

Quick.LinQ fpc small fix

Exilon преди 5 години
родител
ревизия
77a565ff81
променени са 1 файла, в които са добавени 5 реда и са изтрити 1 реда
  1. 5 1
      Quick.Linq.pas

+ 5 - 1
Quick.Linq.pas

@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Version     : 1.0
   Created     : 04/04/2019
-  Modified    : 31/05/2019
+  Modified    : 01/12/2019
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -350,7 +350,11 @@ begin
   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
       for i := Low(aFields) to High(aFields)  do