<div dir="ltr"><div>Espero poderte dar la contestación.</div><div><br></div><div>El componente Memo no devuelve un text, sino Memo.Lines.Text</div><div><br></div><div>Saludos</div><div><br></div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span style="font-size:12.8000001907349px">Quiero hacer una serie de comprobaciones que son iguales a un Control TEdit</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">y a un TMemo.</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">Como se ve en el ejemplo de mas abajo, el cuerpo de los procedimientos es</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">el mismo, lo único que cambia es la cabecera. ¿No puedo hacer un único</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">procedimiento?</span><br style="font-size:12.8000001907349px"><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">function TForm1.EditCorrecto(Control: TEdit): Boolean;</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">begin</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">  if length(Trim(Control.Text))= 0 then</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">    RESULT := False</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">  else</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">    RESULT := True;</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">end;</span><br style="font-size:12.8000001907349px"><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">function TForm1.MemoCorrecto(Control: TMemo): Boolean;</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">begin</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">  if length(Trim(Control.Text))= 0 then</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">    RESULT := False</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">  else</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">    RESULT := True;</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">end;</span><br style="font-size:12.8000001907349px"><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">He intentado unificarlos haciendo el siguiente procedimiento</span><br style="font-size:12.8000001907349px"><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">function TForm1.ControlCorrecto(Sender: TObject): Boolean;</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">begin</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">  if length(Trim(Sender.Text))= 0 then</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">    RESULT := False</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">  else</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">    RESULT := True;</span><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">end;</span><br style="font-size:12.8000001907349px"><br style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">El resultado es que no me reconoce el Atributo Text.</span><br style="font-size:12.8000001907349px"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span style="font-size:12.8000001907349px"></span></blockquote></blockquote><div><br></div><div><br></div></div>