Cita:
Empezado por roman
pero no es StrToFloat quien usa lo que devuelve FormatFloat sino alrevés: FormatFloat usa lo que devuelve StrToFloat.
|
¿Estás seguro de eso?
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
numero : real;
st : string;
begin
st:= ednumero.Text;
st:= FormatFloat('#,##.00',strtofloat(st));
ShowMessage(st); //aquí muestra el mensaje perfectamente,todo muy bien
//Hemos pasado el FomatFloat bien, ya que ednumero.Text estaba sin
//adornar pero ahora st ya tiene "adornos"
numero:= StrToFloat(st);
//aqui es donde peta, ya que le pasamos a StrToFloat
//el resultado de FormatFloat
end;