aproximar numero hasta dos decimales

[__cadetill]

mmmmm, esto..... me parece que nos estamos liando

Veamos el código que nos manda nuestro colega

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
  numero:= StrToFloat(st);

Bien, yo entiendo que la linea

  st:= FormatFloat('#,##.00',strtofloat(st));

le funciona correctamente, por lo que aquí no hay error ni con StrToFloat ni con FormatFloat
Esto lo deduzco por lo que pone en la siguiente linea:

  ShowMessage(st); //aquí muestra el mensaje perfectamente,todo muy bien

Por lo que creo que el error está en la útima línea de código

  numero:= StrToFloat(st);

Donde, una vez hecha la transformación con el FormatFloat (que le ha funcionado bien) intenta volver a transformar el string logrado a un real y, es aquí donde se le presenta el error ya que el string lleva formato

Por eso le recomendaba que no pusiera formato (separador de millares) y, así, esta segunda transformación no le daría problemas

Quizás tu te referias al primer StrToFloat??? Si es así, sí que te doy la razón

[roman]

Empezado por cadetill

mmmmm, esto..... me parece que nos estamos liando

¡Qué gentil por el uso del plural pero ya ví mi error!

Marto uy tú tienen toda la razón. Es que yo, como compilador omito los comentarios y la prueba que hice fue sólo hasta el primer StrToFloat y pensé que Letty dejaba que el usuario escribiera en el Edit los "adornos".

Siendo como me han hecho ver el asunto es clarísimo: A StrToFloat sólo pueden pasársele números reales de " a de veras": dígitos, coma (o punto) decimal, + o - y la E de notación exponencial, y no adornados como sucede en la segunda llamada

// Disculpas

pd: Lo naranja fue añadido.

[__cadetill]

Empezado por roman

// Disculpas

Faltaría más!!!! no eran necesarias