[Lazarus-es] Formatos númericos en Lazreport

[Paola Bruccoleri]

El 04/07/2011 03:23 p.m., Francisco Javier Solis Palma escribió:
> Disculpa la molestia mi nombre es Francisco, tengo un problema algo similar al tuyo, bueno tu ya lo resolviste, tengo la siguiente rutina:
>
> procedure TModuloDatosFrm.frReport1UserFunction(const AName: String; p1, p2,
>    p3: Variant; var Val: Variant);
> var
>    sdato: double;
>    Entero: Double;
>    Fraccion: Double;
> begin
>    If AName = 'FORMATO' Then
>    Begin
>      sdato:=frParser.Calc(P1);
>      if sdato = 10 then
>      Begin
>         sdato := Int(sdato);
>         Val:=Format('%n', [sdato]);
>      End
>      else
>      Begin
>        Entero := Int(sdato);
>        Val:=format('%n', [Entero]);
>        Fraccion := Frac(sdato);
>        If Fraccion<>  0 Then
>          Val := Val + Format('%d', [Fraccion])
>        Else
>          Val := Val + Format('%.1d', [Fraccion]);
>      end;
>    end;
> end;
>
Hola..
yo probaría de hacer esto:

       Entero := Int(sdato);
       Val:=format('%n', [Entero]);
       Fraccion := Frac(sdato);
       If Fraccion<>  0 Then
         Val := Format('%.1d', [sdato])
       Else
         Val := Format('%d', [sdato]);



------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110704/fec89e5b/attachment-0002.html>