我数据库里面的值都是一些整数,我想把这些数在取出时,转成带小数点形式的,怎么转呢

Question

例如我在数据库中存的是:   15  我想在取出来以后成为   15.00
                          15.1   取出来以后成:       15.10
就是转成钱的形式,小数点后面要有两位小数..

Answer 1

function NumFormat(I: Extended): String;
begin
  Result := Format('%.2f', [I]);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(NumFormat(15));
  ShowMessage(NumFormat(15.1));
end;