数字输出为中文描述（delphi）

unit converttostr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TNumberStr = string[2];
const
Numbers: array[0..9] of TNumberStr = ( '零', '壹', '贰', '叁', '肆', '伍', '陆', '柒', '捌', '玖');
ErrorString = 'not in valid range';
Min = 0;
Max = 9999999999;
function RecurseNumber(N: longword): string;
function NumToLetters(Number: real): string;
var
Form1: TForm1;
implementation
{$R *.dfm}
function RecurseNumber(N: longword): string;
var zerostr: string[2];
begin
zerostr := '';
case N of
1..9:
Result := Numbers[N];
10..99:
Result := Numbers[N div 10] + '拾' + RecurseNumber(N mod 10);
100..999:
begin
if (N mod 100 >= 1) and (N mod 100 < 10) then zerostr := '零';
Result := Numbers[N div 100] + '佰' + zerostr + RecurseNumber(N mod 100);
end;
1000..9999:
begin
if (N mod 100 >= 1) and (N mod 1000 < 100) then zerostr := '零';
Result := Numbers[N div 1000] + '仟' + zerostr + RecurseNumber(N mod 1000);
end;
10000..99999999:
begin
if (N mod 100 >= 1) and (N mod 10000 < 1000) then zerostr := '零';
Result := RecurseNumber(N div 10000) + '万' + zerostr + RecurseNumber(N mod 10000);
end;
100000000..2399999999:
begin
if (N mod 100 >= 1) and (N mod 100000000 < 10000000) then zerostr := '零';
Result := RecurseNumber(N div 100000000) + '亿' + zerostr + RecurseNumber(N mod 100000000);
end;
end;
end;
function NumToLetters(Number: real): string;
begin
if (Number >= Min) and (Number <= Max) then
begin
Result := RecurseNumber(round(int(Number))) + '元';
if not(Frac(Number) = 0.00) then
Result := Result + RecurseNumber(Round(Frac(Number)*100)) + '分';
end
else

Raise ERangeError.CreateFmt('%g' + ErrorString + '%g..%g', [Number, Min, Max])ERangeError.CreateFmt('%g' + ErrorString + '%g..%g', [Number, Min, Max]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

Edit2.Text := NumToLetters(Strtofloat(Edit1.text));
end;

end.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/166523/viewspace-204046/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-204046/