encapsular codigo de delphi

[dec]

Hola,

Bueno. En el caso concreto de los "TEdit" que dices... tal vez podrías preparar un procedimiento que se encargara de recorrer en un determinado contenedor (por ejemplo un formulario) todos sus controles, comprobar cuáles son "TEdit", y utilizar el método "Clear()" de estos últimos cuando sea así. Algo similar a esto:

Código Delphi [-]
procedure ClearEdits(container: TWinControl);
var
  i: integer;
begin
  for i := 0 to container.ControlCount-1 do
  begin
    if (container.Controls[i] is TEdit) then
      TEdit(container.Controls[i]).Clear();
  end;
end;

Pero se te pueden ocurrir otras ideas, como, por ejemplo:

Código Delphi [-]
procedure ClearEdits(container: TWinControl;
 edits: array of TCustomEdit);
var
  i: integer;
begin
  for i := Low(edits) to High(edits) do begin
    if (container.FindChildControl(edits[i].Name) <> nil) then
      edits[i].Clear();
  end;
end;

Con este último procedimiento no es preciso borrar "todos los edits", sino sólo los que quieras, de una forma similar a esta:

Código Delphi [-]
ClearEdits(self, [Edit1, Edit2, Edit3]);