delphi Float 用法

unit FloatTestForm;

interface

uses
 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
 FMX.Layouts, FMX.Memo, FMX.Controls.Presentation, FMX.ScrollBox,
 FMX.Memo.Types;

type
 TForm1 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   procedure Show(const Msg: string);
 end;

var
 Form1: TForm1;

implementation

{$R *.fmx}

uses
 Character;

procedure TForm1.Button1Click(Sender: TObject);
var
 S1: Single;
begin
 S1 := 0.5 * 0.2;
 Show(S1.ToString);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 D1: Double;
begin
 D1 := 0.5 * 0.2;
 Show(D1.ToString);
end;

procedure TForm1.Show(const Msg: string);
begin
 Memo1.Lines.Add(Msg);
end;

end.