Регистрация
веранастякрас
Есть ответ 👍

Как сделать ProgressBar в Windows.Forms PascalABC.net?

211
466
Посмотреть ответы 2

Ответы на вопрос:

ruzali4
ruzali4
4,7(22 оценок)

program progressbar_Console;

uses crt,sysutils;

 

const lBar=10;

bar100=110;  

var i:integer;

 

procedure pBar(const cp:integer);

var i,n,m:integer;s:string;s1:String;ch:char;

   begin

       m:=round(100/bar100*cp);

       n:=round(lBar/bar100*cp);

       s:='[]';

       s1:=' '+IntToStr(m)+' % ';

       for i:=1 to lBar do

           begin

               if i<n then ch:=#35 else ch:=#45;

               insert(ch,s,pos(']',s));

           end;

       insert(s1,s,pos('[',s)+1+(lBar div 2));

        gotoxy(1,1);writeln(s);

   end;

 

begin

 clrscr;

for i:=1 to  bar100 do

    begin

      pBar(i);

      delay(50);

    end;

end.

TuyaChimitova
TuyaChimitova
4,4(74 оценок)

по пятка відповідь

Популярно: Другие предметы