aproximar numero hasta dos decimales

[marto]

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?

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;