FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
de vuelta con la limpieza de edit
hola que tal.
Ayer me dieron una solución para limpiar el contenido de la propiedad text una serie de edit en tiempo de ejecución. Estos edit los tengo simulando un memo. El codigo propuesto esra el siguiente....sabiendo que los edit se llaman line1,line2,line3....... asi hasta 10. ----------------------------------------------------- Procedure TForm1.LimpiaEdits; var I: Integer; begin for i := 0 to ComponentCount -1 do if Components[i] is TEdit then line(Components[i]).Text := ''; o tambien con line(Components[i]).clear; end; ----------------------------------------------------- Da error en line no definida. además he notado que si el codigo lo pongo dentro del evento oncreate del form1, si que detecta lo que es line. Mirar, me podeis decir como puedo meter este codigo en una funcion o procedure para yo llamarla desde un botón cuando quiera para borrar el contenido de la propiedad text de los edit. Saludos , y gracia anticipadas. botones67@hotmal.com |
|
|
|