Zeoslib Portal

Code: Select all

function TZAbstractRODataset.FetchRows(RowCount: Integer): Boolean;
begin
  Connection.ShowSQLHourGlass;
  try
    if RowCount = 0 then begin
      while FetchOneRow do begin
        if Assigned(OnProgress) then      // modification, addition 
           OnProgress(Self);                     // to orgonal code
      end;
      Result := True;
    end else begin
      while (CurrentRows.Count < RowCount) do begin
        if FetchOneRow then begin
          if Assigned(OnProgress) then]    // modification, addition 
            OnProgress(Self);                     // to orgonal code
         end else
           Break;
      end;
      Result := CurrentRows.Count >= RowCount;
    end;
  finally
    Connection.HideSQLHourGlass;
  end;
end;

Code: Select all

interface

type 

  // some type declarations here 

  TZAbstractTZAbstractRODataset = Class({Whatever class it derives from})
  private
    // here are all the existing private declarations...
  protected
    // here are all the exiting protected declarations
    FOnProgress: TNotifyEvent; // this is te added variable
  public
    // all the public declarations are here
   published
     // all the existing properties are here
     property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
   end;

   // more type declarations here   

implementation

// a lot of procedures and functions here...

function TZAbstractRODataset.FetchRows(RowCount: Integer): Boolean;
begin
  Connection.ShowSQLHourGlass;
  try
    if RowCount = 0 then begin
      while FetchOneRow do begin
        if Assigned(FOnProgress) then      // modification, addition // note - I used the new variable here
           FOnProgress(Self);                     // to orgonal code
      end;
      Result := True;
    end else begin
      while (CurrentRows.Count < RowCount) do begin
        if FetchOneRow then begin
          if Assigned(FOnProgress) then    // modification, addition // note - I used the new variable here
            FOnProgress(Self);                     // to orgonal code
         end else
           Break;
      end;
      Result := CurrentRows.Count >= RowCount;
    end;
  finally
    Connection.HideSQLHourGlass;
  end;
end;

// even more procedures and functons here