<html><body><div style="font-family: times new roman, new york, times, serif; font-size: 12pt; color: #000000"><div>Hola, si solo necesitas verificaciones con el contenido, no necesitas el objeto sino la cadena por lo que la función sería</div><div><br></div><div>function TForm1.VerificarLongitud(AValue: String): Boolean;</div><div>begin</div><div> Result := (Length(Trim(AValue)) > 0);</div><div>end;</div><div><br></div><div>y la llamas con VerificarLongitud(Edit1.Text) o VerificarLongitud(Memo1.Lines.Text);</div><div><br></div><div><br></div><div>Un saludo</div><div><br></div><hr id="zwchr"><div style="color:#000;font-weight:normal;font-style:normal;text-decoration:none;font-family:Helvetica,Arial,sans-serif;font-size:12pt;" data-mce-style="color: #000; font-weight: normal; font-style: normal; text-decoration: none; font-family: Helvetica,Arial,sans-serif; font-size: 12pt;"><b>De: </b>"Juan Perles" <perlesj@gmail.com><br><b>Para: </b>lazarus-es@lists.lazarus.freepascal.org<br><b>Enviados: </b>Lunes, 22 de Junio 2015 9:23:25<br><b>Asunto: </b>[Lazarus-es] Ayuda con POO<br><div><br></div><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><br>_______________________________________________<br>Lazarus-es mailing list<br>Lazarus-es@lists.lazarus.freepascal.org<br>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<br></div><div><br><br></div><div><br></div><div>-- <br></div><div><span name="x"></span>José Antonio Cuello<br>Dpto. Informatica<br>Artex Trading sa<br>Gold Football sl<span name="x"></span><br></div></div></body></html>