ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBDataOutput.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBDataOutput.pas (file contents):
Revision 48 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 49 by tony, Thu Feb 2 16:20:12 2017 UTC

# Line 76 | Line 76 | type
76    public
77      constructor Create(aOwner: TComponent); override;
78      procedure Assign(Source: TPersistent); override;
79 <    procedure DataOut(SelectQuery: string; Add2Log: TAdd2Log);
79 >    function DataOut(SelectQuery: string; Add2Log: TAdd2Log): boolean;
80      procedure SetCommand(command, aValue, stmt: string; var Done: boolean); virtual;
81      class procedure ShowPerfStats(Statement: IStatement; Add2Log: TAdd2Log);
82    published
# Line 504 | Line 504 | begin
504    end;
505   end;
506  
507 < procedure TIBCustomDataOutput.DataOut(SelectQuery: string; Add2Log: TAdd2Log);
507 > function TIBCustomDataOutput.DataOut(SelectQuery: string; Add2Log: TAdd2Log
508 >  ): boolean;
509   var Count: integer;
510   begin
511    FIBSQL.SQL.Text := SelectQuery;
# Line 515 | Line 516 | begin
516    if PlanOptions = poPlanOnly then
517      Exit;
518  
518 –  if IncludeHeader then
519 –    HeaderOut(Add2Log);
519    Count := 0;
520    FIBSQL.ExecQuery;
521    try
522 +    if IncludeHeader and not FIBSQL.EOF then
523 +      HeaderOut(Add2Log);
524      while (not FIBSQL.EOF) and ((FRowCount = 0) or (Count < FRowCount)) do
525      begin
526        FormattedDataOut(Add2Log);
# Line 530 | Line 531 | begin
531    finally
532      FIBSQL.Close;
533    end;
534 +  Result := Count > 0;
535   end;
536  
537   procedure TIBCustomDataOutput.SetCommand(command, aValue, stmt: string;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines