[教學]阿拉伯數字轉成英文字

轉貼自深度歷險:

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