Browse Source

* Remove some debug statements

michael 6 years ago
parent
commit
8de41029b1
1 changed files with 0 additions and 4 deletions
  1. 0 4
      packages/fcl-db/extjsdataset.pas

+ 0 - 4
packages/fcl-db/extjsdataset.pas

@@ -194,13 +194,9 @@ Var
 
 
 begin
 begin
   inherited InternalOpen;
   inherited InternalOpen;
-  Writeln('Checking ID field ',IDField, ' as key field');
   for I:=0 to Fields.Count-1 do
   for I:=0 to Fields.Count-1 do
     If SameText(Fields[i].FieldName,IDField) then
     If SameText(Fields[i].FieldName,IDField) then
-      begin
       Fields[i].ProviderFlags:=Fields[i].ProviderFlags+[pfInKey];
       Fields[i].ProviderFlags:=Fields[i].ProviderFlags+[pfInKey];
-      Writeln('Setting ID field ',IDField, ' as key field');
-      end;
 end;
 end;
 
 
 function TExtJSJSONDataSet.DoResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean;
 function TExtJSJSONDataSet.DoResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean;