百分比的转换

Question

请问诸位大虾，在Delphi中有没有将小数转换成百分数的函数？
如：func(0.95)=95%

Answer 1

在Delphi中没有百分数类型，你只能用字符串表示

Answer 2

95%在程序中只能作为一个字符串来处理，使用数值计算的时候需要转化。function PercentNumber(number: Double):String;
begin
  result := FloatToStr(number * 100) + '%';
end;function GetNumber(pNumber: String):Double;
var str: String;
begin
  str := TRIM(pNumber);
  str := copy(str,1,Length(str)-1);
  try
    result := StrToFloat(str)/100;
  except
    Result := -1;  //error;
  end;
end;

Answer 3

function inttopresent(value:Double):string;
var
  tempstr,newstr:string;
  strpos:integer;
begin
  value:=value*100;
  newstr:=floattostr(value)+'%';
  result:=newstr;
end;