problema para limpiar cajas de texto

[[Delphius]]

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,