[Angel86rus]

помогите написать алгоритм или массив который бы преобразовывал цыфры в текст

[Boris the Blade]

Процедуры есть встроенные floattostr и inttostr

[NIch]

Наверное он имеет ввиду писать 1 как один, а 21 как двадцать один...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164

//----------------- Copyright (c) 1999 by Константин Егоров //----------------- mailto: egor@vladi.elektra.ru function SumNumToFull(Number: real): string;   implementation   function SumNumToFull(Number:real):string; var   PartNum, TruncNum, NumTMP, D: integer;   NumStr : string;   i, R : byte;   Flag11 : boolean; begin   D:=1000000;   R:=4;   //выделяем рубли   TruncNum:=Trunc(Number);   if TruncNum<>0 then     repeat       PartNum:=TruncNum div D;       Dec(R);       D:=D div 1000;     until       PartNum<>0   else     R:=0;     // перевод рублей   for i:=R downto 1 do   begin     Flag11:=False;     // выделение цифры сотен     NumTMP:=PartNum div 100;     case NumTMP of       1: NumStr:=NumStr+'сто ';       2: NumStr:=NumStr+'двести ';       3: NumStr:=NumStr+'триста ';       4: NumStr:=NumStr+'четыреста ';       5: NumStr:=NumStr+'пятьсот ';       6: NumStr:=NumStr+'шестьсот ';       7: NumStr:=NumStr+'семьсот ';       8: NumStr:=NumStr+'восемьсот ';       9: NumStr:=NumStr+'девятьсот ';     end;     // выделение цифры десятков     NumTMP:=(PartNum mod 100) div 10;     case NumTMP of       1:       begin         NumTMP:=PartNum mod 100;         case NumTMP of           10: NumStr:=NumStr+'десять ';           11: NumStr:=NumStr+'одиннадцать ';           12: NumStr:=NumStr+'двенадцать ';           13: NumStr:=NumStr+'тринадцать ';           14: NumStr:=NumStr+'четырнадцать ';           15: NumStr:=NumStr+'пятнадцать ';           16: NumStr:=NumStr+'шестнадцать ';           17: NumStr:=NumStr+'семнадцать ';           18: NumStr:=NumStr+'восемнадцать ';           19: NumStr:=NumStr+'девятнадцать ';         end;         case i of           3: NumStr:=NumStr+'миллионов ';           2: NumStr:=NumStr+'тысяч ';           1: NumStr:=NumStr+'рублей ';         end;         Flag11:=True;       end;       2: NumStr:=NumStr+'двадцать ';       3: NumStr:=NumStr+'тридцать ';       4: NumStr:=NumStr+'сорок ';       5: NumStr:=NumStr+'пятьдесят ';       6: NumStr:=NumStr+'шестьдесят ';       7: NumStr:=NumStr+'семьдесят ';       8: NumStr:=NumStr+'восемьдесят ';       9: NumStr:=NumStr+'девяносто ';     end;     // выделение цифры единиц     NumTMP:=PartNum mod 10;     if not Flag11 then     begin       case NumTMP of         1:           if i=2 then             NumStr:=NumStr+'одна '           else             NumStr:=NumStr+'один ';         2:           if i=2 then             NumStr:=NumStr+'две '           else             NumStr:=NumStr+'два ';         3: NumStr:=NumStr+'три ';         4: NumStr:=NumStr+'четыре ';         5: NumStr:=NumStr+'пять ';         6: NumStr:=NumStr+'шесть ';         7: NumStr:=NumStr+'семь ';         8: NumStr:=NumStr+'восемь ';         9: NumStr:=NumStr+'девять ';       end;       case i of         3:           case NumTMP of             1: NumStr:=NumStr+'миллион ';             2,3,4: NumStr:=NumStr+'миллиона ';             else               NumStr:=NumStr+'миллионов ';           end;         2:           case NumTMP of             1 : NumStr:=NumStr+'тысяча ';             2,3,4: NumStr:=NumStr+'тысячи ';             else               if PartNum<>0 then                 NumStr:=NumStr+'тысяч ';           end;         1:           case NumTMP of             1 : NumStr:=NumStr+'рубль ';             2,3,4: NumStr:=NumStr+'рубля ';             else               NumStr:=NumStr+'рублей ';           end;       end;     end;     if i>1 then     begin       PartNum:=(TruncNum mod (D*1000)) div D;       D:=D div 1000;     end;   end;     //перевод копеек   PartNum:=Round(Frac(Number)*100);   if PartNum=0 then   begin     SumNumToFull:=NumStr+'00 копеек';     Exit;   end;   // выделение цифры десятков   NumTMP:=PartNum div 10;   if NumTMP=0 then     NumStr:=NumStr+'0'+IntToStr(PartNum)+' '   else     NumStr:=NumStr+IntToStr(PartNum)+' ';   // выделение цифры единиц   NumTMP:=PartNum mod 10;   case NumTMP of     1:       if PartNum<>11 then         NumStr:=NumStr+'копейка'       else         NumStr:=NumStr+'копеек';     2,3,4:       if (PartNum<5) or (PartNum>14) then         NumStr:=NumStr+'копейки'       else         NumStr:=NumStr+'копеек';     else       NumStr:=NumStr+'копеек';   end;   SumNumToFull:=NumStr; end;

Обрати внимание на копирайт в начале функции...

[Angel86rus]

Огромное спасибо NIch помог.
а вот на подобие этого примера можно написать чтоб при вводе в Edit1 отображал в Labele листы . т.е. 1 листе , на 2 листах... итд.

[NIch]

За спасибо пожалуйста...