seveN Postado Janeiro 9, 2009 Denunciar Share Postado Janeiro 9, 2009 Como faço para meu relatório receba o número no formato 000000-0Tentei isso mas não consegui nadaRelatorio.Matricula.Caption:= Format('%', [000000-0], (Edit1.Text)]);Pedro Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Janeiro 9, 2009 Denunciar Share Postado Janeiro 9, 2009 Como faço para meu relatório receba o número no formato 000000-0Tentei isso mas não consegui nadaRelatorio.Matricula.Caption:= Format('%', [000000-0], (Edit1.Text)]);Veja este posthttp://scriptbrasil.com.br/forum/index.php...st&p=523608abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 seveN Postado Janeiro 10, 2009 Autor Denunciar Share Postado Janeiro 10, 2009 Não fechousó queria exibir a matricula no relatorio no seguinte formato "000000-0"grato. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Janeiro 10, 2009 Denunciar Share Postado Janeiro 10, 2009 Passe um exemplo da matricula ... como é digitadoabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 seveN Postado Janeiro 10, 2009 Autor Denunciar Share Postado Janeiro 10, 2009 Eu digito a matricula assim:9289988 e no relatório teria que sair assim 928998-8com hífem.grato. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Janeiro 10, 2009 Denunciar Share Postado Janeiro 10, 2009 Eu digito a matricula assim:9289988 e no relatório teria que sair assim 928998-8com hífem.Se voce tivesse seguido o exemplo que te passei no outro post, voce chegaria a istoprocedure TForm1.Button1Click(Sender: TObject); var s, s1, s2 : string; i : integer; begin s := Trim(edit1.text); // 9289988 i := length(s); s1 := copy(s,1,i-1); s2 := copy(s,i-1,1); FmtStr(s, '%.6d', [strtoint(s1)]); Label1.Caption := s+'-'+s2; // 928998-8 end;abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Janeiro 10, 2009 Denunciar Share Postado Janeiro 10, 2009 Outra forma de fazer isto, preenchendo com zeros à esquerda e usando funções do Delphi (>= 7, anteriores não sei):FormatMaskText -> unit MaskUtilsFormatFloat e StrToInt -> unit SysUtilsRelatorio.Matricula.Caption := FormatMaskText('000000-0;0', FormatFloat('0000000', StrToInt(Edit1.text)));Abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 seveN Postado Janeiro 10, 2009 Autor Denunciar Share Postado Janeiro 10, 2009 Deu CertoRelatorio.Matricula.Caption:= 'Mat ' + FormatMaskText('000000-0;0', (Edit.Text));Obrigado pela força. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Janeiro 11, 2009 Denunciar Share Postado Janeiro 11, 2009 Relatorio.Matricula.Caption:= 'Mat ' + FormatMaskText('000000-0;0', (Edit.Text));seveN, só para constar, o uso de FormatMaskText com a máscara de formatação desejada só funciona corretamente se o string passado a ele tiver exatamente a mesma quantidade de caracter da máscara. A função é a utilizada pelo componente TMaskEdit.No exemplo acima, a máscara "pede" que o texto tenha 7 caracteres (são os zeros ou noves na máscara). Se o conteúdo do seu texto for "885", o resultado será "885 - ". A julgar pelo fato de você não ter usado código que eu ou o Jhonas postou, parece que você não quer preencher com zeros à esquerda o tal número. Assim, baseado no exemplo, se a intenção é que o resultado seja "88-5", então voce deve garantir que o seu texto tenha a quantidade de caracteres correta, adicionando espaços no início dele:Relatorio.Matricula.Caption := FormatMaskText('000000-0;0', Format('%7s', [Edit1.text]));Agora o resultado final será: " 88-5", corretamente formatado, e para remover o espaço em branco antes, basta usar a função Trim:Relatorio.Matricula.Caption := Trim(FormatMaskText('000000-0;0', Format('%7s', [Edit1.text])));Abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
seveN
Como faço para meu relatório receba o número no formato 000000-0
Tentei isso mas não consegui nada
Relatorio.Matricula.Caption:= Format('%', [000000-0], (Edit1.Text)]);
Pedro
Link para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.