Dos decimales en un TEDIT
 

Buenas, he visto algunos temas con respecto a esto pero ningun ejemplo me funciona, quiero que un TEDIT solo posea dos decimales, el resultado del TEDIT es la suma de varios TEDIT...

estoy usando el siguiente codigo:

Código Delphi [-]
procedure TForm2.CalcularNClick(Sender: TObject);
begin
npromedio.text:= Format('%0:2f',[npromedio.Text]);
npromedio.Text:=  Floattostr(StrToFloat(edit1.Text)+StrToFloat(edit2.Text)+StrToFloat(edit3.Text)+StrToFloat(edit4.Tex  t));
end;

Espero puedan darme alguna ayuda, Gracias

Hola, primero tienes que sumar y despues darle formato y convertir lo que tienes en tu edit, también puedes usar FormatFloat.

Código Delphi [-]
 npromedio.Text:=  Floattostr(StrToFloat(edit1.Text)+StrToFloat(edit2.Text)+StrToFloat(edit3.Text)+StrToFloat(edit4.Tex  t));
 npromedio.text := Format('%0:2f',[StrToFloat(npromedio.Text)]);
 //con formatfat
 npromedio.text := FormatFloat('0.00',StrToFloat(npromedio.Text));

Saluditos

Hola ZiriusB.

En esta línea:

Código Delphi [-]
   npromedio.text:= Format('%0:2f',[npromedio.Text]);

Estas indicando en el formato de salida que el valor es un Float (2f) y le estas enviando un TCaption (Text).

Para lograr lo que buscas, probá de hacerlo de este modo:

Código Delphi [-]
procedure TForm2.CalcularNClick(Sender: TObject);
begin
  npromedio.Text:= FormatFloat('0.00',StrToFloat(npromedio.Text));
  npromedio.Text:= FormatFloat('0.00',StrToFloat(FloatToStr(StrToFloat(edit1.Text)
                   +StrToFloat(Edit2.Text)+StrToFloat(Edit3.Text)+StrToFloat(Edit4.Text))));
end;

Tomá en cuenta que la segunda línea anula el valor asignado en la primera.

Saludos.

Edito: Lamento casi duplicar la respuesta pero no estaba el mensaje de Caro cuando empezé a escribir... :)

Muchas gracias por su respuesta, lo implemente hace dias pero no habia tenido la oportunidad de responder...tengo un problema y lo planteo aqui para no abrir otro tema espero no este cometiendo una falta, es sobre la misma base de este!

a NPROMEDIO.TEXT yo lo quiero guardar en mi base de datos SQL, tengo asignado el valor como "FLOAT" en la base de datos, sin embargo a la Hora de guardar me da un error:

El hecho es que he revisado y volteado el codigo y todo esta bien, estan los mismos valores en INSERT que en las clausulas.

Tengo una funcion de redondeo para NPROMEDIO.TEXT que estaba desactivada, cuando la activo y el numero se redondea lo guarda sin problemas pero si la desactivo me vuelve a aparecer el mismo problema...

El valor de NPROMEDIO.TEXT lo estoy guardando asi:

Código Delphi [-]
    ADOguardar.SQL.Add(FloattoStr(Strtofloat(npromedio.Text)));
    ADOguardar.SQL.Add(',');

No se si sera un problema con la conversion que le doy aqui:

Código Delphi [-]
npromedio.text := FormatFloat('0.00',StrToFloat(npromedio.Text));

Espero puedan guiarme... y una vez mas mil gracias por la ayuda!

Hola
No veo el codigo completo del query ADOguardar.
Sin verlo es algo dificil opinar que podria estar pasando.
Saludos