Cita:
En el evento OnGetText puedes multiplicar por 100.
En el evento OnSetText del campo, puedes dividir por 100.
|
ok gracias por todo lo resolvi como me dijiste
Código Delphi
[-]
procedure TfrmSisPago.tbl_SisPagoDetComisionGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
Text := FormatFloat('#'+DecimalSeparator+'00 %',(Sender.AsCurrency * 100));
end;
procedure TfrmSisPago.tbl_SisPagoDetComisionSetText(Sender: TField;
const Text: String);
begin
Sender.AsFloat := StrToFloat(Text)/100;
end;
con la salvedad que el formato dado a las propiedades displayformat/editformat no funcionan ya que el dato es directamente gestionado por los eventos get y set text
muchas gracias me sirvio de mucho