Guest Bianca Postado Novembro 19, 2004 Denunciar Share Postado Novembro 19, 2004 Eu gostaria de fazer com que no campo que o usuário digitou, se ele não preencheu todos os digitos necessários, completar à esquerda, com '0'. Como faço? OBS: é uma mascara no formato '_____/____' Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Arlon Postado Novembro 19, 2004 Denunciar Share Postado Novembro 19, 2004 Adicionando Zeros a esquerda A dica que irei mostrar é uma função que adiciona zeros a esquerda de um número. Esta função pode ser bastante utilizada em aplicativos de banco de dados, onde o campo código que possui três casas se não chegar até o valor 100, os seus valores vão ser preenchidos com zero a esquerda. Por exemplo, se for digitado o valor 2, o campo código irá receber o valor 002. Veja como funciona: No form adicione um componente button e um componente edit. No editor de código, após a seção implementation escreva a seguinte função: function ZeroEsquerda(const I: integer; const Casas: byte): string; var Ch: Char; begin Result := IntToStr(I); if Length(Result) > Casas then begin Ch := '*'; Result := ''; end else Ch := '0'; while Length(Result) < Casas do Result := Ch + Result; end; No evento OnClick do botão escreva o código abaixo: edit1.text := ZeroEsquerda(strtoint(edit1.text), 3); A função possui dois parâmetros: o primeiro idêntifica o local que será adicionado zero a esquerda, o segundo indica quantas casas terá o valor, que no nosso exemplo é três. Execute a aplicação, digite 1 no edit, clique no botão. A propriedade text do edit será alterada para 001. Fonte: Clube Delphi - www.clubedelphi.net Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Bianca
Eu gostaria de fazer com que no campo que o usuário digitou, se ele não preencheu todos os digitos necessários, completar à esquerda, com '0'. Como faço?
OBS: é uma mascara no formato '_____/____'
Link para o comentário
Compartilhar em outros sites
1 resposta 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.