delphi floattostr 保留2位小数

在 Delphi 中，可以使用以下代码将一个浮点数转换为字符串并保留两位小数：

var
  myFloat: Double;
  myStr: string;
begin
  myFloat := 3.14159;
  myStr := Format('%.2f', [myFloat]);
  ShowMessage(myStr);
end;

在上面的示例中，`Format` 函数的第一个参数是格式字符串，`%.2f` 表示保留两位小数的浮点数。第二个参数是一个数组，其中包含要格式化的值。在这种情况下，我们只有一个值 `myFloat`。最后，将格式化的字符串赋值给 `myStr` 变量，并在窗口中显示出来。

相关问题

delphi 判断一个数小数点后有几位

在 Delphi 中判断一个数小数点后有几位，可以通过以下代码实现：

function GetDecimalPlaces(num: Double): Integer;
var
  strNum: string;
  dotPos: Integer;
begin
  strNum := FloatToStr(num);
  dotPos := Pos('.', strNum);
  if dotPos > 0 then
    Result := Length(strNum) - dotPos
  else
    Result := 0;
end;

这个函数接受一个 Double 类型的参数 num，将其转换为字符串，然后查找小数点的位置，并计算小数位数。如果没有小数点，则返回 0。

delphi 计算百分比

在 Delphi 中，计算百分比可以通过以下方式实现：

var
  numerator, denominator: Integer;
  result: Double;
begin
  // 假设 numerator 和 denominator 分别为分子和分母
  result := (numerator / denominator) * 100;
  // 将结果转换为字符串并显示
  ShowMessage(FloatToStr(result) + '%');
end;

在上面的代码中，我们将分子除以分母得到一个小数，然后将其乘以 100 得到百分比。最后，我们将结果转换为字符串并使用 `ShowMessage` 函数显示出来。