Boa tarde Pessoal,
veja se ajuda,
var
FormatarTelefone: string;
if (UniDBEditTelefoneRefComercial.Text <> '') then
begin
if Length(SomenteNumero(UniDBEditTelefoneRefComercial.Text)) = 10 then
begin
FormatarTelefone:= '(' + Copy(UniDBEditTelefoneRefComercial.Text, 1,2)
+ ')' + Copy(UniDBEditTelefoneRefComercial.Text, 3,4)
+'-' + Copy(UniDBEditTelefoneRefComercial.Text, 7,4);
end
else
begin
if Length(SomenteNumero(UniDBEditTelefoneRefComercial.Text)) = 11 then
begin
FormatarTelefone:= '(' + Copy(UniDBEditTelefoneRefComercial.Text, 1,2)
+ ')' + Copy(UniDBEditTelefoneRefComercial.Text, 3,5)
+'-' + Copy(UniDBEditTelefoneRefComercial.Text, 8,4);
end
else
begin
ShowMessage('Este Campo é para telefone Celular com "nono dígito" ou telefone fixo, Ex: 41988888888 ou 4133333333');
UniDBEditTelefoneRefComercial.Clear;
UniDBEditTelefoneRefComercial.SetFocus;
Abort;
end;
end;
UniDBEditTelefoneRefComercial.Text:= FormatarTelefone;
end;
Att. Luciano Benito