Verificar si un Componente MaskEdit está vacio

[ecfisa]

Hola.

No sé si entendí bién el problema, pero si te refieres a verificar que no tenga caracteres ingresados por el usuario, podrías hacer:

Código Delphi [-]
function IsMaskEditEmpty(ME: TMaskEdit): Boolean;
var
  tmp: string;
begin
  tmp := ME.EditMask;
  ME.EditMask := '';
  Result := ME.Text = '';
  ME.EditMask := tmp;
end;

Ejemplo de uso:

Código Delphi [-]
...
begin
  if IsMaskEditEmpty(MaskEdit1) then
    ShowMessage('Vacío');

En cuanto al mensaje de error no sé que tratamiento das al contenido... Tal vez te sirva usar como filtros numéricos el caracter 9,que permite un dígito pero no lo requiere y como filtros alfanuméricos al caracter a que permite un caracter pero no lo requiere.

Saludos

[Dergon]

Empezado por ecfisa

Hola.

No sé si entendí bién el problema, pero si te refieres a verificar que no tenga caracteres ingresados por el usuario, podrías hacer:

Código Delphi [-]
function IsMaskEditEmpty(ME: TMaskEdit): Boolean;
var
  tmp: string;
begin
  tmp := ME.EditMask;
  ME.EditMask := '';
  Result := ME.Text = '';
  ME.EditMask := tmp;
end;

Ejemplo de uso:

Código Delphi [-]
...
begin
  if IsMaskEditEmpty(MaskEdit1) then
    ShowMessage('Vacío');

En cuanto al mensaje de error no sé que tratamiento das al contenido... Tal vez te sirva usar como filtros numéricos el caracter 9,que permite un dígito pero no lo requiere y como filtros alfanuméricos al caracter a que permite un caracter pero no lo requiere.

Saludos

Esta funcion va donde,esque soy novato en esto.

[Dergon]

Empezado por Dergon

Esta funcion va donde,esque soy novato en esto.

Aqui estoy pasando unas imagenes.
https://ibb.co/cV901a https://ibb.co/itgr7F https://ibb.co/cYKpuv https://ibb.co/i9yhEv

[ecfisa]

Hola.

Empezado por Dergon

Esta funcion va donde,esque soy novato en esto.

Tenes que situarla dentro del área de alcance de uso (que sea visible desde donde la usas), un ejemplo:

Código Delphi [-]
...

implementation

// ( visible a partir de aquí )
function IsMaskEditEmpty(ME: TMaskEdit): Boolean;
var
  tmp: string;
begin
  tmp := ME.EditMask;
  ME.EditMask := '';
  Result := ME.Text = '';
  ME.EditMask := tmp;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MaskEdit1.EditMask := '!99/99/9999;1;_'
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsMaskEditEmpty(MaskEdit1) then
    ShowMessage('Vacío');
end;
...

También podrías situar la declaración de la función en la sección de interfaz (interface) de otra unidad, el código en su implementación (implementation) e incluirla, etc.

Para mas información revisa este enlace: Como declarar una función

Saludos