我找了很多相关的资料，都没找到满意的，不知道哪位前辈能指点一下，我的要求想这样：转换到万就行了，不必到拾万百万，但转换出来的大写是不要带单位的，例如 1240，一般人家转成大写为“壹仟贰佰肆拾元整。”我要的结果是： “ 零 壹 贰 肆 零 零 ” 因为票据上已经印有 万 仟 佰 拾 角 分

------
我的编程起步于ktop，我将永远支持ktop

您好: 這樣的規則更好寫吧,剛花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

没想到难题被supman大大几分钟就搞定了，呵呵，效果和我想象的几乎一样，就是有一点，因为一般都是套打，单位之间肯定有一定的间距，现在打出来的是： 零壹贰肆零零 这样的话要和票据上的单位重叠了，能不能这样打出来： 零 壹 贰 肆 零 零 ，谢谢！

------
我的编程起步于ktop，我将永远支持ktop

大哥,你嘛幫幫忙,都寫這樣給你了,也稍微動個腦吧. 0:Result:=Result '零 '; 1:Result:=Result '壹 '; 你的間距是多少自己在後面補上空白不就好了.