Completar com ZEROS à esquerda

Delphi

14/04/2003

Tenho uma dbgrid, que quando o usuário digita o valor...fica assim
Digitou 23...deve ficar: 2-3...o último número é digito.
O campo código tem comprimento 7...onde 6 são numero e 1 código...
Gostaria que quando digitado: 345...ficasse 000034-5 ou
quando digitasse 12345...ficasse 001234-5...que os zeros completassem automaticamente.
Como faço isso?


Diana

Diana

Curtidas 0

Respostas

Nebrio

Nebrio

14/04/2003

Se não tiver pressa monto uma funçãozinha mando pra vc.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

14/04/2003

Na propriedade DisplayFormat do objeto TField, coloque: 000000-0.


GOSTEI 0
POSTAR