(int),i,1))*2+1,2); {取数字的大写} Result:=Result+copy(ws,(cd-i)*2+1,2); {加上数字的位数} i:=i+1; end end 在这里输入xd(1234567.89),返回“壹佰贰拾叁万肆仟伍佰陆拾柒元捌角玖分”,但它并不完美,例如xd(100),返回的却是:壹佰零拾零元零角零分(应是壹佰元整),...