數字金額轉國字範例 - Delphi.KTop 討論區
我提供另一種寫法給大家參考 請在此下宣告兩組常數 interface uses Classes, StdCtrls, DB, SysUtils, Windows.... const CMoney: array[0..9] of string = ('零','壹','貳','參','肆','伍','陸','柒','捌','玖'); const CMoneyType: array [0..10] of string = ('','元','拾','佰','仟','萬','拾','佰 ......