Dos decimales en un TEDIT

[ZiriusB]

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:

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;


First chance exception at $7C812AEB. Exception class EConvertError with message 'Format '%0:2f' invalid or incompatible with argument'. Process Eval.exe (3104)

Espero puedan darme alguna ayuda, Gracias

[Caro]

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


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

[ecfisa]

Hola ZiriusB.

En esta línea:

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:

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... :)

[ZiriusB]

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:

First chance exception at $7C812AEB. Exception class EOleException with message 'There are fewer columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement'. Process Eval.exe (2560)

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:

ADOguardar.SQL.Add(FloattoStr(Strtofloat(npromedio.Text)));
ADOguardar.SQL.Add(',');

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

npromedio.text := FormatFloat('0.00',StrToFloat(npromedio.Text));

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

[Caral]

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