Formatar String no Delphi

Em muitas ocasiões precisamos formatar (Adicionar mascara em strings) eu havia criado uma função para isso, mas recentemente encontrei uma função já existente no Delphi, basta inserir na uses a UNIT MaskUtils ou System.MaskUtils dependendo a versão do Delphi e para formatar use

 

CPF: FormatMaskText('000\.000\.000\-00;0;', '11111111111')
CNPJ: FormatMaskText('00\.000\.000\/0000\-00;0;', '11111111111111')

Se quiser formatar outros tipos de dados basta mudar o formato da mascara para o formato desejado, 
no local onde informei '1111111111' você irá inserir a string que deseja formatar..

Espero ter ajudado... abs

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *