Fixar ano em campo TMaskEdit

Fala galera, beleza?

Estamos de volta, agora sem deixar o blog sem atualizações 😉

No post de hoje, vamos tratar de uma funcionalidade para quem deseja criar um maskedit para data, mas quer manter o ano fixo, sem que o usuário possa alterar.

Para casos de sistemas que tenham o ano fixo ou que seja controlado por algum outro local.

Abaixo segue a função que permite isso.

O FOR é utilizado para colocar a “\” antes dos caracteres que serão fixos e não podem ser alterados, no caso o ano presente na data.

var
    sAno: string;
    I: Integer;
    CompMascara: string;
begin
    MaskEdit1.Clear;
    MaskEdit1.EditMask := EmptyStr;
    sAno := Edit1.Text;

    for I := 1 to Length(sAno) do
        CompMascara := CompMascara + '\' + sAno[I];

    MaskEdit1.EditMask := '99/99/' + CompMascara + ';0;_';
end;