FloatToStr (numero)

Convierte un número Real (Double) a cadena de texto (string).

Ejemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
var
  suma1 : ;
  suma2 : Real;
  resultado : Real;
begin
  suma1 := StrToFloatDef (Edit1.Text, 0);
  suma2 := StrToFloatDef (Edit2.Text, 0);
  resultado := suma1 + suma1;
  Label1.Caption := FloatToStr(resultado);
end;

Uses SysUtils;

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario