[Resolvido] Formatação de CEP

[marcio.theis 3]

Uma simples função para efetuar a formatação de cep, ou então remover a formatação, basta chamar a função, passand o número do cep, e True/False, se deseja que o retorno seja com ou sem a máscara...

 

function TForm1.FormataCEP(CEP: string; adicionarMascara: boolean): string;var   x : integer;   CEPnum : string;beginfor x:=1 to Length(CEP) do	if (CEP[x] in ['0'..'9']) then		CEPnum:=CEPnum + CEP[x];if adicionarMascara then	CEPnum:=copy(CEPnum, 1, 2) + '.' + copy(CEPnum, 3, 3) + '-' + copy(CEPnum, 6, 3);FormataCEP:=CEPnum;end;