![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
|||
|
|||
lo primero que tienes que ver es ¿que estas haciendo con form1.edit+contador.text:=' ' ;?
Una forma de hacer lo que buscas es, saber que todo Tcomponent tiene una lista de components que posee. El Form es un Tcomponent y por lo tanto, todo componente que pegas en el está en esa lista. Se accede por medio de la propiedad Components. Hay otra que te da cuantos hay, componentCount. Ejemplo: Procedure TForm1.LimpiaEdits; var I: Integer; begin for i := 0 to ComponentCount -1 do if Components[i] is TEdit then TEdit(Components[i]).Text := ''; end; Esto debe funcionarte, salvo fallos de sintaxis. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|