Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

str100:=str100+' '

Str0_999:=Strip('B',' ',str100+str99)

end

{***************** ValToStr *********************************}

Begin

{функция из StrnTTT5-переводит целое число в строку}

nNum:=Int_To_Str(nSumNum)

{функция из StrnTTT5-удаляет из строки символы,

    (откуда удалять, что удалять, строка)}

nNum:=Strip('B',' ',nNum)

nLenNum:=length(nNum)

{вычисляем длину}

strHun:=''

strTh:=''

strMln:=''

{если сумма меньше 100}

IF nLenNum<3 then

 begin

   {функция из StrnTTT5-добавляем слева несколько пробелов}

nNum:=Squeeze('L',' ',3-nLenNum)+nNum

nLenNum:=Length(nNum)

 end

{выделяем единицы, десятки и сотни}

str1:=nNum[nLenNum]

str10:=nNum[nLenNum-1]

Рекомендуем скачать другие рефераты по теме: реферат на тему предприятие, шпори скачать.



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки