unit1.pas

该软件能将你所输入的数字转为中文的数字,非常的好用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function g_onlyinteger(key:char;flag : integer= 0) : char ;
  function NumLowerToUpper(number:Real):string;
  
implementation

{$R *.dfm}
function g_onlyinteger(key:char;flag : integer= 0) : char ;
begin
  result := key ;
  if flag = 0 then
  begin
    if (byte(key)>57) or ((byte(key)<48) and (byte(key)<>8)) then
      result:=char(0);
  end
  else begin
    if (byte(key)>57) or ((byte(key)<48) and (byte(key)<>8) and (byte(key)<>46)) then
      result:=char(0);
  end ;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject;
 var Key: Char);
begin
  inherited;
  key := g_onlyinteger(key,1) ;  /////只能输入数字
end;

function NumLowerToUpper(number:Real):string;
const
  d='零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿';
 var
  m,k:string;
  j:integer;
begin
  k:='';
  m:=floattostr(int(number*100));
  for j:=length(m) downto 1 do
    k:=k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+
      d[(strtoint(m[Length(m)-j+1])+1)*2]+d[(10+j)*2-1]+d[(10+j)*2];
  Result:=k;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Edit2.Text := NumLowerToUpper(strtofloat(Edit1.Text));
end;

end.