<div dir="ltr">Quiero hacer una serie de comprobaciones que son iguales a un Control TEdit y a un TMemo. <div>Como se ve en el ejemplo de mas abajo, el cuerpo de los procedimientos es el mismo, lo único que cambia es la cabecera. ¿No puedo hacer un único procedimiento? </div><div><br></div><div><div>function TForm1.EditCorrecto(Control: TEdit): Boolean;</div><div>begin</div><div>  if length(Trim(Control.Text))= 0 then</div><div>    RESULT := False</div><div>  else</div><div>    RESULT := True;</div><div>end;</div><div><br></div><div>function TForm1.MemoCorrecto(Control: TMemo): Boolean;</div><div>begin</div><div>  if length(Trim(Control.Text))= 0 then</div><div>    RESULT := False</div><div>  else</div><div>    RESULT := True;</div><div>end; </div></div><div><br></div><div>He intentado unificarlos haciendo el siguiente procedimiento</div><div><br></div><div><div>function TForm1.ControlCorrecto(Sender: TObject): Boolean;</div><div>begin</div><div>  if length(Trim(Sender.Text))= 0 then</div><div>    RESULT := False</div><div>  else</div><div>    RESULT := True;</div><div>end;</div></div><div><br></div><div>El resultado es que no me reconoce el Atributo Text.</div><div><br></div><div>Muchas gracias por anticipado por vuestras molestias.</div></div>