Delphi - Format

   
Vista:

Format

Publicado por Martha ramirez (1 intervención) el 02/07/2008 06:42:09
Hola a todos de ante mano gracias...

Tengo este prble al formatear este edit

var
P,C:Extended;
begin
TEdit(Sender).color := $0099C7DD;
P:=StrToFloat('0'+Tot.Text);
C:=StrToFloat('0'+Pag.Text);
if C<=P then
Sal.Text:=FloatToStr(P-C)
else
if C>P then
Begin
Cam.Text := FormatFloat('0.00',floattostr(C-P));
Sal.AsInteger := 0;
end
else
Sal.Clear
me sale un erro que dice Icmpatible tipos Double and string

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Fibonacci
- Algoritmo AlphaBlending
- OpenGL

RE:Format

Publicado por pacopaz (104 intervenciones) el 02/07/2008 16:40:57
Aunque es muy dependiente de que realmente pongas un par de números con punto flotante en Tot y Pag, que podría traerte problemas, si no lo validas antes, tu problema está en la línea 12, si no me equivoco. Debe ser:

Cam.Text := FormatFloat('0.00', C-P);

Espero que sea eso.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar