Ver Mensaje Individual
  #12  
Antiguo 05-12-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 27
Delphius Va camino a la fama
Cita:
Empezado por tebre Ver Mensaje
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,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita