Convierte un número Real (Double) a cadena de texto (string).
Ejemplo de uso:
1 2 3 4 5 6 7 8 9 10 11 |
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;