关于大写金额 |
答題得分者是:supman
|
ntjrr
高階會員 發表:240 回覆:312 積分:110 註冊:2005-04-24 發送簡訊給我 |
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
您好:
這樣的規則更好寫吧,剛花3分鐘就寫出來了...
忘了有小數點,改了一下.
function zStrFormat(Format,Str,Mode:String):String;overload; var Len1,Len2:Integer; TempStr:String; begin Len1:=Length(Format); Len2:=Length(Str); TempStr:=Copy(Format,1,Len1-Len2); if (Mode='LeftJustify') then TempStr:=Str TempStr; if (Mode='RightJustify') then TempStr:=TempStr Str; result:=TempStr; end; procedure TForm1.Button1Click(Sender: TObject); var S1,Result:String; i,Num:integer; begin S1:='1234.00'; Result:=''; S1:=StringReplace(S1,'.','',[rfReplaceAll]); S1:=zStrFormat('0000000',S1,'RightJustify'); for i:=1 to Length(S1) do begin Num:=StrToInt(S1[i]); Case Num Of 0:Result:=Result '零'; 1:Result:=Result '壹'; 2:Result:=Result '貳'; 3:Result:=Result '參'; 4:Result:=Result '肆'; 5:Result:=Result '伍'; 6:Result:=Result '陸'; 7:Result:=Result '柒'; 8:Result:=Result '捌'; 9:Result:=Result '玖'; end; end; Label1.Caption:=Result; end;發表人 - supman 於 2005/06/07 23:13:43 |
ntjrr
高階會員 發表:240 回覆:312 積分:110 註冊:2005-04-24 發送簡訊給我 |
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |