[教学]阿拉伯数字转成英文字

转贴自深度历险:

function NumToStr( const Num: Integer): string;
var TestChar: integer;
TransTempStr: string;
TempStr: string;
EnglishStr: array[ 0.. 99] of string;
UnitStr: array[ 0.. 10] of string;
TenUnit: array[ 1.. 9] of string;
TenyUnit: array[ 2.. 9] of string;
begin
UnitStr[ 0]:= ''
UnitStr[ 1]:= 'ONE'
UnitStr[ 2]:= 'TWO'
UnitStr[ 3]:= 'THREE'
UnitStr[ 4]:= 'FOUR'
UnitStr[ 5]:= 'FIVE'
UnitStr[ 6]:= 'SIX'
UnitStr[ 7]:= 'SEVEN'
UnitStr[ 8]:= 'EIGHT'
UnitStr[ 9]:= 'NINE'
UnitStr[ 10]:= 'TEN'
TenU ..

访客只能看到部份内容，免费 加入会员

x0

多谢分享

x0