Veja aqui como formatar CPF em tempo de execucao do sistema

Sempre necessitando de algo que me pudesse colocar mascaras, já cansado de ficar usando Edimask nos Field, e Maskededit´s, resolvi criar uma funçãozinha que atendesse tanto em CPF, CNPJ´s como em telefones.
A função é a seguinte:


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Edit1Change(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
s:string;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

edit1.MaxLength := 14;

if s = ´s´ then
begin
if length(edit1.Text) = 3 then
begin
edit1.Text := edit1.Text + ´.´;
edit1.SelStart := length(edit1.Text);
end;

if length(edit1.Text) = 7 then
begin
edit1.Text := edit1.Text + ´.´;
edit1.SelStart := length(edit1.Text);
end;

if length(edit1.Text) = 11 then
begin
edit1.Text := edit1.Text + ´-´;
edit1.SelStart := length(edit1.Text);
end;



end
else
begin
s :=´s´;
end;

end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

begin
if key = VK_BACK then
begin
s:=´n´;
end;
end;

end.


é isso dai pessoal, funciona legal !!!!


Charles Garrotti

Analista de Sistemas