Devart Forums

Code: Select all

execute block (smallest int = :Smallest, largest int = :Largest)
 returns (number int, square bigint, cube bigint, fourth bigint)
 as
 begin
    number = smallest;
    while (number <= largest) do
    begin
       square = number * number;
       cube = number * square;
       fourth = number * cube;
       suspend;
       number = number + 1;
    end
 end

Code: Select all

  SimpleDataSet1.DataSet.CommandText := 'execute block (smallest int = :Smallest, largest int = :Largest) ...';
  SimpleDataSet1.DataSet.Params.ParamValues['Smallest'] := 2;
  SimpleDataSet1.DataSet.Params.ParamValues['Largest']  := 5;