打印出一个圆中间一个叉来表示不用的位如何完成!(100)

我在做打印发票金额大写套打时,对于不用的位要打成一个圆中一个叉.一个圆中一个叉,这个符号我一直找不到,真是急死了,不知道各位大侠可以高招可解小弟之急.先谢谢了.

比如一个数,他没有仟位,就在仟位前划一个圆里再划个叉.

换个字体试试，“Wingdings 2”这个字体里有。

procedure XXOO(Canvas: TCanvas;const Rect: TRect);var Radius, Diff: Integer;
begin
Canvas.Ellipse(Rect);
Radius := (Rect.Right - Rect.Left) div 2;
Diff := Floor(Sqrt(Radius*Radius div 2));
Canvas.MoveTo(Rect.Left + Radius - Diff, Rect.Top + Radius - Diff);
Canvas.LineTo(Rect.Left + Radius + Diff, Rect.Top + Radius + Diff);
Canvas.MoveTo(Rect.Left + Radius + Diff, Rect.Top + Radius - Diff);
Canvas.LineTo(Rect.Left + Radius - Diff, Rect.Top + Radius + Diff);
end;