Function TextProgressBar(progint:integer):string;
begin
if progint >= 0 then
Result := '<$1> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 10 then
Result := '<$1><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 20 then
Result := '<$1><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 30 then
Result := '<$1><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 40 then
Result := '<$1><$0><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 50 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 60 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0> <$2>';
if progint >= 70 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0> <$2>';
if progint >= 80 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0> <$2>';
if progint >= 90 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0><$0> <$2>';
if progint >= 100 then
Result := '<$1><$0><$0><$0><$0><$0>'+IntToStr(progint)+' <$3><$0><$0><$0><$0><$0><$2>';
end;
Пробуй
вялікія прыгожыя вочы; у водсвеце вячэрняй зары зусім пунсовым зрабіўся яе твар. Некалі на спатканнях яна часта рабіла так: сярод сур'ёзнай размовы аб самых высокіх матэрыях раптам падскаквала, зрывала каштан, ці галінку ліпы, ці проста ліст, клала яго на руку і «страляла». Або, калі яны часам выходзілі ўвечары за горад, раптам прапаноўвала: «Давай навыперадкі!» яна прызналася, што саромелася свайго беднага ўбрання: яна была з беднай сям'і, расла без маці. Саша стала нейкая больш стрыманая, паважная.
