Forráskód Böngészése

* Remove some debug statements

michael 6 éve
szülő
commit
8de41029b1
1 módosított fájl, 0 hozzáadás és 4 törlés
  1. 0 4
      packages/fcl-db/extjsdataset.pas

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

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