ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

edit limitando caracteres

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
gbt
Profissional
Profissional


Registrado: Quarta-Feira, 17 de Janeiro de 2007
Mensagens: 672

MensagemEnviada: Dom Out 02, 2016 8:46 pm    Assunto: edit limitando caracteres Responder com Citação

Ola Pessoal! Tenho um edit que preciso preencher com um limite de 50 digitos, porém em alguns casos vou precisar preencher com zeros a esquerda pra completar esse quantidade. Como faço isso? Ex: posso digitar em alguma situações 8 numeros e vou precisar que seja preenchido o restante com zeros a esquerda.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10466
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Dom Out 02, 2016 11:32 pm    Assunto: Responder com Citação

Tente assim:

Código:
Edit1.Text := StringOfChar('0', 50-Length(Edit1.Text))+Edit1.Text;



Um detalhe é que a função Format() não dá um resultado correto a partir de uma determinada quantidade de zeros, veja:
Código:
Format('%.50d', [StrToInt(Edit1.Text)]);


Acho que o máximo é o algarismo de 1 dígito seguido de 18 zeros.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
gbt
Profissional
Profissional


Registrado: Quarta-Feira, 17 de Janeiro de 2007
Mensagens: 672

MensagemEnviada: Seg Out 03, 2016 7:34 am    Assunto: Responder com Citação

Muito Obrigado Jhnny! Deu certo.....
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10466
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Seg Out 03, 2016 7:51 pm    Assunto: Responder com Citação

Disponha amigo.

Foi meio na gambi, mas funciona...



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
abagattini
Mestre
Mestre


Registrado: Terça-Feira, 29 de Novembro de 2005
Mensagens: 758
Localização: Porto Alegre/RS

MensagemEnviada: Sex Out 07, 2016 8:58 pm    Assunto: Responder com Citação

function StrZero(Numero: Real; Tamanho: Integer): String;
var
sNumero, Retorno: String;
Cont: Integer;
begin
sNumero := FloatToStr(Numero);
Retorno := EmptyStr;
for Cont := (Length(sNumero)) to Tamanho - 1 do
Retorno := Retorno + '0';
Retorno := Retorno + sNumero;
StrZero := Retorno;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
abagattini
Mestre
Mestre


Registrado: Terça-Feira, 29 de Novembro de 2005
Mensagens: 758
Localização: Porto Alegre/RS

MensagemEnviada: Sex Out 07, 2016 9:00 pm    Assunto: Responder com Citação

a minha também foi gambiara.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB