num2str.pas

来自「Number value to string charactor」· PAS 代码 · 共 17 行

unit Num2Str;

interface

uses Graphics, SysUtils, Classes;

type
   TMoney = (vaBelorus, vaRossia, vaDollar, vaEvro, vaNum_Str, vaVes, vaSimpleRubl);
   CurType = array[0..255] of Char;

const
   tril = 1000000000000.00;
   bil = 1000000000.00;
   mill = 1000000.00;
   thou = 1000.00;
   N_Kop = '';
   Tri = '蝠