|
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.
|