Ver Mensaje Individual
  #7  
Antiguo 11-08-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.
Cita:
Empezado por Dergon Ver Mensaje
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita