Completar com ZEROS a Esquerda
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?
OBS.: O código foi declarado como alfanumerico.
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?
OBS.: O código foi declarado como alfanumerico.
Diana
Curtidas 0
Respostas
Guigao
14/04/2003
Diana eu uso sempre o Pacote RXLIb, disponivel na Net gratuito. é muito bom , por que ele traz varios componentes free.
e um deles é o que vc esta precisando, caso queira, entre em contato comigo
guigaosap@bol.com.br
Luis
e um deles é o que vc esta precisando, caso queira, entre em contato comigo
guigaosap@bol.com.br
Luis
GOSTEI 0
Hacson Menezes
14/04/2003
Tente isto (retirado do 750 dicas):
var
s: string;
begin
FmtStr(s, ´¬.6d´, [StrToInt(edit1.text)]);
edit1.text := s;
end;
Quando vc digitar: 12, ficará 000012; se vc digitar 1234, ficará 001234. Depois é só inserir ´-´ entre o 5º e o 6º número.
Espero ter ajudado
var
s: string;
begin
FmtStr(s, ´¬.6d´, [StrToInt(edit1.text)]);
edit1.text := s;
end;
Quando vc digitar: 12, ficará 000012; se vc digitar 1234, ficará 001234. Depois é só inserir ´-´ entre o 5º e o 6º número.
Espero ter ajudado
GOSTEI 0
Nebrio
14/04/2003
A função que te mandei não funcionou ?
Nébrio
Nébrio
GOSTEI 0