Cita:
Empezado por tebre
alguien tiene alguna otra forma de limpiar los controles..el objetivo es no repetir el codigo de limpiado de controles
|
Puedes tener un procedimiento así:
Código Delphi
[-]procedure Limpiar(AEdit: TEdit);
begin
AEdit.Clear;
end;
E invocarlo cuando sea necesario.
Ahora, si deseas limpiar un grupo de TEdits y no sólo uno lo puedes hacer algo así:
Código Delphi
[-]procedure LimpiarEdits;
var i: integer;
begin
for i := 0 to ComponentCount -1 do
begin
if Components[i] is TEdit then TEdit(Components[i]).Clear;
end;
end;
Lo hice más o menos al vuelo... no tengo Delphi a mano puede tener algunos errores. La idea es recorrer los componentes y si es un TEdit, borrar el contenido.
Saludos,