Ver Mensaje Individual
  #4  
Antiguo 18-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola BPL.

Coincido con Chris en el evento a capturar.

El código que te pongo, lo podés asignar a cualquier campo numérico:
Código Delphi [-]
procedure TForm.FieldGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if TField(Sender).Value > 0 then
    Text:= FormatFloat('0.0000',TField(Sender).Value);
end;

Podés asignarlo con doble click sobre el evento del campo asociado o mediante código:
Código Delphi [-]
   TuTabla.FieldByName('Puntos').OnGetText:= FieldGetText;
   // o si el campo está declarado:
   TuTablaTuCampo.OnGetText:= FieldGetText;



Saludos.

Última edición por ecfisa fecha: 18-08-2010 a las 22:06:20.
Responder Con Cita