Fórum Apagar zeros a esquerda #155995

27/04/2003

0

Olá

Possuo uma tabela Paradox e um campo chamado código que aceita 6 caracter sendo que os dois primeiros caracter do registro são dois numeros zero ´00´, estou precisando de uma rotina que apague o primeiro zero ´0´ do registros, se alguem me puder mandar um exemplo agradeço desde já


Misael

Misael

Responder

Posts

27/04/2003

Aroldo Zanela

Misael,

Basta converter o valor string para inteiro e vice-versa. Veja:

tbValor.Value := IntToStr(StrToInt(tbValor.Value));



Responder

Gostei + 0

27/04/2003

Rebel_inside

[quote:0ab14a774b=´Aroldo Zanela´]Misael,

Basta converter o valor string para inteiro e vice-versa. Veja:

tbValor.Value := IntToStr(StrToInt(tbValor.Value));
[/quote:0ab14a774b]

por segurança, faça o seguinte:

tbValor.Value := IntToStr(StrToIntDef(tbValor.Value, 0));


isso irá evitar as malditas exceções (´...´ is not a valid integer value)

[]´s


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar