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

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;