瀏覽代碼

* Merging revisions 230 from trunk:
------------------------------------------------------------------------
r230 | michael | 2018-12-23 12:37:56 +0100 (Sun, 23 Dec 2018) | 1 line

* Removed some comments
------------------------------------------------------------------------

michael 6 年之前
父節點
當前提交
e0e7e3e187
共有 1 個文件被更改,包括 0 次插入3 次删除
  1. 0 3
      packages/dataabstract/dadataset.pas

+ 0 - 3
packages/dataabstract/dadataset.pas

@@ -380,7 +380,6 @@ Var
   I : integer;
 begin
   Result:=Nil;
-  Writeln('Converting ',DADS.Params.Count,' parameters.');
   if DADS.Params.Count=0 then
      Exit;
   SetLength(Result,DADS.Params.Count);
@@ -467,8 +466,6 @@ begin
     end
   else
     Msg:=Fail;
-
-  writeln('Data request or processing failed: ',Msg);
   Success:=rrFail;
 end;