Fórum Validando CEP #256438

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;