Fórum Parte Inteira de uma string #282876
24/05/2005
0
Tem um campo CPF que criei na minha tabela que defini como VARCHAR(20) e por nao ter definido mascara para o mesmo no delphi, os usuarios cadastraram o CPF de varias formas. So com o numero(41554121454), com traços(1542121-12), com barra(4542112/22). Agora eu quero pegar somente a parte inteira dessa string e nao estou conseguindo.
Alguem sabe se tem como fazer isso pelo delphi ou pelo firebird???
Agradeço desde já
Alguem sabe se tem como fazer isso pelo delphi ou pelo firebird???
Agradeço desde já
Tcarvalho
Curtir tópico
+ 0
Responder
Posts
24/05/2005
Marco Salles
so uma idéia
var
parteInteira:String;
i:Integer;
begin
parteInteira:=´´;
i:=1;
while i <= Length(edit1.text) do
begin
if edit1.text[i] in [´0´..´9´] then
parteInteira:=ParteInteira+Edit1.Text[i];
i:=i+1;
end;
showmessage(ParteInteira);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)