Buscar por:

Formatando cep

Código

{ Esta função forma CEP como: 99.999-999 } 

function tbFormataCEP(const CEP: string): string; 

var 

  I: integer; 

begin 

  Result := ''; 

  for I := 1 to Length(CEP) do 

  if CEP[I] in ['0'..'9'] then 

  Result := Result + CEP[I]; 

  if Length(Result) <> 8 then 

  raise Exception.Create('CEP inválido.') 

  else 

  Result := 

  Copy(Result, 1, 2) + '.' + 

  Copy(Result, 3, 3) + '-' + 

  Copy(Result, 6, 3); 

end; {Use assim:

- Coloque um Edit e um Button no form;

- No evento OnClick do Button coloque a instrução abaixo:}

Edit1.Text := tbFormataCEP(Edit1.Text);