Довідник : одиниці вимірювання, система числення, час у різних країнах

IsTha:=false;

IsRange1019:=false;

sResult:='';

for i:=1 to 13 do

begin

currNum:=Copy(sdInt,i,1);

if currNum<>suffBL then

begin

case i of

5,6, 7:if currNum<>'0' then IsMln:=true;

8,9,10:if currNum<>'0' then IsTha:=true;

end;

if i IN [2,5,8,11] then {сотні}

begin

if currNum='1' then sResult:=sResult+st+oo+suffBL;

if currNum='2' then sResult:=sResult+C2+ii+st+ii+suffBL;

if currNum='3' then sResult:=sResult+C3+st+aa+suffBL;

if currNum='4' then sResult:=sResult+C4+ee+st+aa+suffBL;

if currNum='5' then sResult:=sResult+C5+sot+suffBL;

if currNum='6' then sResult:=sResult+C6+sot+suffBL;

if currNum='7' then sResult:=sResult+C7+sot+suffBL;

if currNum='8' then sResult:=sResult+C8+sot+suffBL;

if currNum='9' then sResult:=sResult+C9+sot+suffBL;

end;

if i IN [3,6,9,12] then{десятки}