浏览代码

[linq] fixed older delphi versions compatibility

Exilon 4 年之前
父节点
当前提交
2e009b0c49
共有 1 个文件被更改,包括 8 次插入0 次删除
  1. 8 0
      Quick.Linq.pas

+ 8 - 0
Quick.Linq.pas

@@ -359,7 +359,11 @@ function TLinqQuery<T>.Select: TxArray<T>;
 var
   obj : T;
 begin
+  {$If Defined(FPC) OR Defined(DELPHIRX102_UP)}
   Result := [];
+  {$ELSE}
+  Result := nil;
+  {$ENDIF}
   if fWhereClause = nil then raise ELinqNotValidExpression.Create('Not valid expression defined!');
   for obj in fList do
   begin
@@ -403,7 +407,11 @@ var
   obj : T;
   i : Integer;
 begin
+  {$If Defined(FPC) OR Defined(DELPHIRX102_UP)}
   Result := [];
+  {$ELSE}
+  Result := nil;
+  {$ENDIF}
   DoOrderBy(fList);
   if fWhereClause = nil then raise ELinqNotValidExpression.Create('Not valid expression defined!');
   i := 0;