FastReport中怎么定義報表大寫金額

這篇文章給大家介紹FastReport中怎么定義報表大寫金額，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

我們在設計FastReport報表時,遇到客戶有可能需要顯示的是大寫金額,可以用如下方法設計報表解決.

首先要改為大寫金額的用[tt]做為變量定義

然后在文本編輯器里寫代碼

代碼:

begin
  qianwei:=-2;
  Smallmonth:=formatfloat('0.00',[QueryBody."iamt"]);
  dianweizhi :=pos('.',Smallmonth);
  tt :='';
  BigMonth:='';
  qian:=length(Smallmonth);
  while qian>0 do
  begin
    if qian<>dianweizhi then
    begin
      i:=copy(Smallmonth,qian,1);
      if i='1' then wei1:='壹'
      else if i='2' then wei1:='貳'
      else if i='3' then wei1:='叁'
      else if i='4' then wei1:='肆'
      else if i='5' then wei1:='伍'
      else if i='6' then wei1:='陸'
      else if i='7' then wei1:='柒'
      else if i='8' then wei1:='捌'
      else if i='9' then wei1:='玖'
      else if i='0' then wei1:='零';
      if qianwei=-3      then  qianwei1:='厘'
      else if qianwei=-2 then  qianwei1:='分'
      else if qianwei=-1 then  qianwei1:='角'
      else if qianwei=0  then  qianwei1:='元'
      else if qianwei=1  then  qianwei1:='拾'
      else if qianwei=2  then  qianwei1:='佰'
      else if qianwei=3  then  qianwei1:='千'
      else if qianwei=4  then  qianwei1:='萬'
      else if qianwei=5  then  qianwei1:='拾'
      else if qianwei=6  then  qianwei1:='佰'
      else if qianwei=7  then  qianwei1:='千'
      else if qianwei=8  then  qianwei1:='億'
      else if qianwei=9  then  qianwei1:='十'
      else if qianwei=10 then  qianwei1:='佰'
      else if qianwei=11 then  qianwei1:='千';
      inc(qianwei);
      BigMonth :=wei1+qianwei1+BigMonth;
    end;
    dec(qian);
  end;
  tt := BigMonth;
end

按照上面的辦法輕松搞定.

關于FastReport中怎么定義報表大寫金額就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。