FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Redondear + DBGrid1DrawColumnCell
Hola a todos!
tengo que comparar dos columnas de pesos. Tengo una función redondear que Código:
function redondear(x:double):double; begin SetRoundMode(rmDown); result:= SimpleRoundTo(x,-2); end; Código:
Table1.Fields[2].AsFloat:= Redondear(Table1.Fields[2].AsFloat); Código:
procedure TForm1.DBGrid2DrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if table1.Fields[2].AsFloat <> -table1.Fields[3].AsFloat then DBGrid2.Canvas.Brush.Color:=clRed; DBGrid2.DefaultDrawColumnCell (Rect, DataCol, Column, State); end; Código:
Table1.Fields[2].AsFloat:= 1; ¿Sabe alguien donde está el misterio? Muchas gracias! Jon uso delphi7, bde,paradox |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Redondear numeros decimales a enteros.... | uper | Varios | 6 | 26-07-2012 16:52:45 |
Función para redondear números reales | Dexter182 | Varios | 6 | 13-10-2005 03:58:33 |
Cómo Redondear a 4 decimales un campo de tipo Numérico | vick | Conexión con bases de datos | 1 | 11-10-2005 01:04:23 |
Redondear a n decimales | Vivi | Varios | 4 | 09-09-2005 15:13:29 |
Redondear decimales en Jbuilder | Irina | JAVA | 0 | 21-05-2003 18:15:09 |
|