Perşembe, Temmuz 05, 2018

Is TMaskEdit empty?

Uses 
   Vcl.Mask,
   Vcl.ValEdit,
   System.MaskUtils, ...
.
.
.
function isMaskEditEmpty(me: TMaskEdit) : Boolean;
begin
   Result := FormatMaskText(me.EditMask, '') = me.Text;
end;
.
.
.

Hiç yorum yok: