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

sResult:=sResult+C5+suffMZ+suffDCM+suffBL;

if currNum='6' then

sResult:=sResult+C6+suffMZ+suffDCM+suffBL;

if currNum='7' then

sResult:=sResult+C7+suffMZ+suffDCM+suffBL;

if currNum='8' then

sResult:=sResult+C8+suffMZ+suffDCM+suffBL;

if currNum='9' then

sResult:=sResult+'дев''ян'+oo+st+oo+suffBL;

end;

if i in [4,7,10,13] then {одиниці}

begin

if (currNum='0') then

if IsRange1019 then sResult:=sResult+suffDCM+suffMZ+suffBL;

if (currNum='1') then

begin

if (i=13)and(not IsRange1019) then sResult:=sResult+'один '

else begin

if (i=10)and(IsRange1019) then sResult:=sResult+'оди'

else

if (i=10)and(not IsRange1019) then sResult:=sResult+'один '

else

sResult:=sResult+'один'{ин};

if IsRange1019 and (i=13) then

sResult:=sResult+'адцять'+suffBL

else

if IsRange1019 then sResult:=sResult+suffNA

else sResult:=sResult+suffBL;

end;

end;