[Lazarus-es] Ayuda con POO

SocGer socger en gmail.com
Mar Jun 23 13:54:33 CEST 2015


Espero poderte dar la contestación.

El componente Memo no devuelve un text, sino Memo.Lines.Text

Saludos




> Quiero hacer una serie de comprobaciones que son iguales a un Control TEdit
> y a un TMemo.
> 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?
>
> function TForm1.EditCorrecto(Control: TEdit): Boolean;
> begin
>   if length(Trim(Control.Text))= 0 then
>     RESULT := False
>   else
>     RESULT := True;
> end;
>
> function TForm1.MemoCorrecto(Control: TMemo): Boolean;
> begin
>   if length(Trim(Control.Text))= 0 then
>     RESULT := False
>   else
>     RESULT := True;
> end;
>
> He intentado unificarlos haciendo el siguiente procedimiento
>
> function TForm1.ControlCorrecto(Sender: TObject): Boolean;
> begin
>   if length(Trim(Sender.Text))= 0 then
>     RESULT := False
>   else
>     RESULT := True;
> end;
>
> El resultado es que no me reconoce el Atributo Text.
>
>>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150623/47679072/attachment-0002.html>


More information about the Lazarus-es mailing list