Pesquisar Neste Blog 1

Função: Validar CEP - Códigos Delphi

0

Código Delphi

// Função: Validar CEP.

// Testa se o CEP é Válido ou Não.

Código

Function ValidarCEP(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;

Postar um comentário

0 Comentários
* Por Favor, Não Faça Spam Aqui. Todos os Comentários São Revisados Pelo Administrador.
Postar um comentário (0)

#buttons=(Aceito !) #days=(365)

COOKIES: Esse Site Guarda Estatísticas de Visitas Para Melhorar a Sua Experiência de Navegação e Disponibilizar Funcionalidades Adicionais, Saiba Mais em Nossa Política de Privacidade
Aceito !