procedure TInfoForm.Button2Click(Sender: TObject);
var m:DOUBLE;
begin
m:=12345678;
ShowMessage(Format('%*.*n',[0,0,m]));
end;
[ 0 , 0 , m]
保留位数 保留小数点后位数 需要格式化的字符串,类型为DOUBLE
var m:DOUBLE;
begin
m:=12345678;
ShowMessage(Format('%*.*n',[0,0,m]));
end;
[ 0 , 0 , m]
保留位数 保留小数点后位数 需要格式化的字符串,类型为DOUBLE