Re: [delphi-br] Format

Wed, 08 Feb 2006 10:34:51 -0800 

Desculpe, é uma função que eu também criei pra migrar sistemas do clipper para 
o Delphi a 400 anos atrás...
   
  Function Replicate ( pString :String; xWidth :Integer ) :String;
// Função de retorno de número de caracteres especídico
var
  nCount :Integer;
  pStr :String;
Begin
   pStr:= '';
   for nCount := 1 to xWidth do
      pStr := pStr + pString;
   Result:= pStr;
end;


"info.desenvolvimento" <[EMAIL PROTECTED]> escreveu:
  Sr Julio está dando a seguinte mensagem.

[Error] UMovimento.pas(141): Undeclared identifier: 'Replicate'


  ----- Original Message ----- 
  From: Julio Abdala 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, February 07, 2006 8:11 PM
  Subject: Re: [delphi-br] Format


  Formata a saída do campo no evento onGetText do campo que você deseja 
formatar.
     
    olha um exemplo:
    procedure TdmEmprs.tblPromotorPERC1GetText(Sender: TField;
    var Text: String; DisplayText: Boolean);
  begin
      Text:= Valores( Sender.asFloat, 4 );
  end;

    Function Valores( Valor :Real; Casas :Integer ) :String;
  Var
     TextFor :String;
  // String Formatada em Moeda - Sem Símbolo
  Begin
     If Casas <= 0 then
        TextFor:= '###,###,##0'
     Else
        TextFor:= '###,###,##0.'+Replicate('0',Casas);
       If Valor < 0 then
        Result:= FormatFloat('('+TextFor+')', Valor)
     else
        Result:= FormatFloat(TextFor, Valor);
  end;

    abs.
     
    Júlio Abdala

  "info.desenvolvimento" <[EMAIL PROTECTED]> escreveu:
    Pessoal como faço para formatar um QRLabel no Quick report.
  Tenho todas as somas e quero que o total saia neste QRLabel.
  Os outros valores vem de tabelas e estou usando QRDBText já formatados para 
Currency
  Existe algum componente que eu posso usar no Quickreport para mostrar os 
valores em R$ com a formatação correta?
  Como faço a formatação do mesmo?

  Segue abaixo o que estou usando:

  procedure TFMovimento.SummaryBand1BeforePrint(Sender: TQRCustomBand;
    var PrintBand: Boolean);
  begin
  formatfloat('R$#.##0,00', strtofloat(TOTAL.CAPTION));
  end;
  Sendo que o TOTAL é o meu QRLabel


  [As partes desta mensagem que não continham texto foram removidas]



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





          Yahoo! Grupos, um serviço oferecido por:            PUBLICIDADE

    
  ---------------------------------
    Links do Yahoo! Grupos
      
     Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/
      
     Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]
      
     O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



              
  ---------------------------------
  Yahoo! Acesso Grátis 
  Internet rápida e grátis. Instale o discador agora!

  [As partes desta mensagem que não continham texto foram removidas]



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por: 
              PUBLICIDADE
                
       


------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
      
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
      
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por:            PUBLICIDADE
    var lrec_target="_blank";var lrec_URL=new Array();  
lrec_URL[1]="http://br.ard.yahoo.com/SIG=12fmnq2ma/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139418751/A=3283959/R=0/id=flashurl/SIG=154fpp59v/*http://lt.dell.com/lt/lt.aspx?CID=11234&LID=306520&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";;
  var 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.swf?clickTAG=javascript:LRECopenWindow(1)";
  var 
lrec_altURL="http://br.ard.yahoo.com/SIG=12fmnq2ma/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139418751/A=3283959/R=1/id=altimg/SIG=154fpp59v/*http://lt.dell.com/lt/lt.aspx?CID=11234&LID=306520&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";;
  var 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.jpg";;
  var
 lrec_width=300;var lrec_height=250;      
  
---------------------------------
  Links do Yahoo! Grupos
    
   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
    
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
    
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



                
---------------------------------
 Yahoo! Acesso Grátis 
Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a