QuickRep:将1234567格式化成1,234,567粒

procedure TqrFrm.QRDBText54Print(sender: TObject; var Value: String);
var
  i,j:integer;
  ts:string;
begin
  i:=length(Value);
  j:=1;
  ts:='';
  while i>j*3 do
  begin
    ts:=','+copy(pchar(Value),i-3*j+1,3)+ts;
    j:=j+1;
  end;
  ts:=copy(pchar(Value),1,i-(j-1)*3)+ts;
  Value:=ts+'粒';
end;