支票打印的 小写 部分如何打印出来

Question

各位高手,我有一困惑的问题,我报表用的是Fastreport ,库中有"金额"这个字段
我现在是要把金额这个字段的里的数字一个个的打印对应到如下表中,也就是支票的小写部分
    -------------------------------
   |亿|千|百|十|万|千|百|十|元|角|分|
   |-------------------------------
   |  |  | |  |  |  |7|5 |2 |1 |5 |
    -------------------------------不知大家能否看清楚，就是752.15元，我怎样 逐个 输出到Fastreport　然后打出来？？
跪求啊！

Answer 1

?判断小数点的位置，pos 下每个数字的位置，对应上去。

Answer 2

放11个Label，每个Label对应一个字符即可。简单模拟以下：
type
  TLabelChars = array[0..10] of Char;function FloatToChars(const Value:Double):TLabelChars;
var
  S:string;
  I:Integer;
  L:Integer;
begin
  L:=High(Result)+1;
  FillChar(Result[0],L,0);
  S:=Format('%.2f',[Value]);
  S:=ReverseString(S);
  Delete(S,3,1);
  for  I:= 1 to min(Length(S),L) do
  begin
    Result[L-I]:=S[I];
  end;
end;使用：
X:TLabelChars;X:=FloatToChars(752.15);
Label0.Caption:=X[0];
Label1.Caption:=X[1];
Label2.Caption:=X[2];
...

Answer 3

如果要用mi函数，需要use Math单元