Código Delphi [-] function IsMaskEditEmpty(ME: TMaskEdit): Boolean; var tmp: string; begin tmp := ME.EditMask; ME.EditMask := ''; Result := ME.Text = ''; ME.EditMask := tmp; end;
function IsMaskEditEmpty(ME: TMaskEdit): Boolean; var tmp: string; begin tmp := ME.EditMask; ME.EditMask := ''; Result := ME.Text = ''; ME.EditMask := tmp; end;
Código Delphi [-] ... begin if IsMaskEditEmpty(MaskEdit1) then ShowMessage('Vacío');
... begin if IsMaskEditEmpty(MaskEdit1) then ShowMessage('Vacío');