请问小数怎么转换成百分比显示？在线等！

Question

请问小数怎么转换成百分比显示？在线等！有什么格式化函数能实现吗？

Answer 1

var
  fPercent: double;
  fTotal: double;
  fCurrent: double;
begin
  if fTotal <> 0 then
    fPercent := (fCurrent / fTotal) * 100 
  else
    fPercent := 0.0;  FTaskStatus := Format('进度：%.0n字节，总共：%.0n字节，完成率%3.3f%s',
    [fCurrent, fTotal, fPercent, '%']);
end;注：因为格式串当中%有特殊意义，所以当成一个参数来进行传递（format中）