瀏覽代碼

* Fix warnings

Michaël Van Canneyt 2 年之前
父節點
當前提交
7091f49685
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-db/sqldbrestdataset.pp

+ 1 - 1
packages/fcl-db/sqldbrestdataset.pp

@@ -758,7 +758,7 @@ end;
 function TSQLDBRestDataset.DoResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean;
 
 Var
-  rIdx,I : Integer;
+  rIdx : Integer;
   Fld : TField;
   rawData : JSValue;
   Data : TJSArray absolute rawData;