Советы по Delphi



Число строкой VI - часть 2


/p>

Хммммм... вроде бы работает, но как все громоздко и неуклюже.... добавьте в код немного рекурсии и вы получите более элегантную программу..:)))

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;
type
TForm1 = class(TForm)num: TEdit;spell: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }function trans9(num: integer): string;function trans19(num: integer): string;function trans99(num: integer): string;function IntToSpell(num: integer): string;public{ Public declarations }end;
var
Form1: TForm1;
implementation

{$R *.DFM}
function TForm1.IntToSpell(num: integer): string;
var
spell: string;hspell: string;hundred: string;thousand: string;tthousand: string;hthousand: string;million: string;begin
if num ≶ 10 thenspell := trans9(num);{endif}if (num < 20) and (num &gt 10) thenspell := trans19(num);{endif}if (((num < 100) and (num > 19)) or (num = 10)) thenbeginhspell := copy(IntToStr(num),1,1) + '0';spell := trans99(StrToInt(hspell));hspell := copy(IntToStr(num),2,1);spell := spell + ' ' + IntToSpell(StrToInt(hspell));end;
if (num < 1000) and (num > 100) thenbeginhspell := copy(IntToStr(num),1,1);hundred := IntToSpell(StrToInt(hspell));hspell := copy(IntToStr(num),2,2);hundred := hundred + ' hundred and ' + IntToSpell(StrToInt(hspell));spell := hundred;end;
if (num < 10000) and (num > 1000) thenbeginhspell := copy(IntToStr(num),1,1);thousand := IntToSpell(StrToInt(hspell));hspell := copy(IntToStr(num),2,3);thousand := thousand + ' thousand ' + IntToSpell(StrToInt(hspell));spell := thousand;end;
if (num < 100000) and (num > 10000) thenbeginhspell := copy(IntToStr(num),1,2);tthousand := IntToSpell(StrToInt(hspell));hspell := copy(IntToStr(num),3,3);tthousand := tthousand + ' thousand ' + IntToSpell(StrToInt(hspell));spell := tthousand;end;
if (num < 1000000) and (num > 100000) thenbeginhspell := copy(IntToStr(num),1,3);hthousand := IntToSpell(StrToInt(hspell));hspell := copy(IntToStr(num),4,3);hthousand := hthousand + ' thousand and ' +IntToSpell(StrToInt(hspell));
spell := hthousand;end;
if (num < 10000000) and (num > 1000000) thenbeginhspell := copy(IntToStr(num),1,1);million := IntToSpell(StrToInt(hspell));hspell := copy(IntToStr(num),2,6);million := million + ' million and ' + IntToSpell(StrToInt(hspell));spell := million;end;
IntToSpell := spell;
end;

function TForm1.trans99(num: integer): string;
var
spell: string;begin
case
num of10 : spell := 'ten';20 : spell := 'twenty';30 : spell := 'thirty';40 : spell := 'fourty';50 : spell := 'fifty';60 : spell := 'sixty';70 : spell := 'seventy';80 : spell := 'eighty';90 : spell := 'ninty';end;trans99 := spell;end;
function TForm1.trans19(num: integer): string;
var
spell: string;begin
case
num of11 : spell := 'eleven';12 : spell := 'twelve';13 : spell := 'thirteen';14 : spell := 'fourteen';15 : spell := 'fifteen';16 : spell := 'sixteen';17 : spell := 'seventeen';18 : spell := 'eighteen';19 : spell := 'nineteen';end;trans19 := spell;end;
function TForm1.trans9(num: integer): string;
var
spell : string;begin
case
num of1 : spell := 'one';2 : spell := 'two';3 : spell := 'three';4 : spell := 'four';5 : spell := 'five';6 : spell := 'six';7 : spell := 'seven';8 : spell := 'eight';9 : spell := 'nine';end;trans9 := spell;end;
procedure TForm1.Button1Click(Sender: TObject);
var
numb: integer;begin
spell.text := IntToSpell(StrToInt(num.text));end;

[000256]




Содержание  Назад  Вперед