Parte Inteira de uma string

Delphi

24/05/2005

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á


Tcarvalho

Tcarvalho

Curtidas 0

Respostas

Marco Salles

Marco Salles

24/05/2005

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);



GOSTEI 0
POSTAR