在delphi里浮点型，尽量使用 Currency，不要使用单精度

procedure TForm3.Button2Click(Sender: TObject);
begin
  var sg: Single; //单精度
  var db: Double; //双精度
  var cy: Currency; //delphi 特有的钱类型

  sg := 1.123;
  db := 1.123;
  cy := 1.123;

  Memo1.Lines.Add(sg.ToString);
  Memo1.Lines.Add(db.ToString);
  Memo1.Lines.Add(cy.ToString);

  var sg1: string; //单精度
  var db1: string; //双精度
  var cy1: string; //delphi 特有的钱类型

  sg1 := '1.123';
  db1 := '1.123';
  cy1 := '1.123';

  Memo1.Lines.Add(Single.Parse(sg1).ToString);
  Memo1.Lines.Add(Double.Parse(db1).ToString);
  Memo1.Lines.Add(Currency.Parse(cy1).ToString);
end;

用currency 可以防止 转换过程中 浮点数 精度的问题