引用 | 編輯
mainchen
2002-10-22 09:55 |
樓主
▼ |
||
x0
轉貼自深度歷險: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
|