ibec_ProgressEx

This function provides some additional flags to display progress percentages and/or bars when executing scripts in console mode (IBEScript.exe). In the IBExpert GUI it works exactly as the ibec_Progress function.

 function ibec_ProgressEx(Message : string; Options : variant);

Currently the Options argument can accept a combination of the following constants:

 __poNoCRLF ($1) - no end-of-line marker (CR+LF) will be added to the end of progress message;

 __poReplaceLast ($2) - last ibec_ProgressEx output will be replaced with a new one;

  execute ibeblock
  as
  begin
    ibec_ProgressEx('Progress: ', __poNoCRLF);
    for i = 1 to 100 do
    begin
      s = i || '%';
      iOptions = __poNoCRLF;
      if (i > 1) then
        iOptions = iOptions + __poReplaceLast;
      ibec_ProgressEx(s, iOptions);
      ibec_sleep(100);
    end;

    ibec_ProgressEx('', 0);
  end;

  execute ibeblock
  as
  begin
    ibec_ProgressEx('Progress: ', __poNoCRLF);
    for i = 1 to 100 do
    begin
      if (i > 1) then
        ibec_ProgressEx('', __poNoCRLF + __poReplaceLast);
      ibec_ProgressEx('=', __poNoCRLF);
      s = ' ' || i || '%';
      ibec_ProgressEx(s, __poNoCRLF);
      ibec_sleep(100);
    end;
  end;