Buscar

Auto completar com ZEROS à esquerda do edit

Código

//No evento OnExit:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
// Auto Completa o Edit1 com Zeros à esquerda neste caso com 4 zeros).
     Edit1.Text := Copy('0000',1,4 - Length(Trim(Edit1.Text))) + Edit1.Text;
end;

end.

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 10/11/09
Por: Leandro Borges
Visualizada: 6461 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009