codigo comun entre distintos formularios

[Neftali [Germán.Estévez]]

Empezado por dec

...sólo valdrá para ese tipo de formularios, ¿no?

No tiene porqué. Se supone que el parámetro será genérico.
Si debe acceder a los controles de un formulario lo lógico es pasar ese formulario como parámetro (no se me ocurre otra forma).
Algo así vamos:

Código Delphi [-]
procedure LimpiarDatos(AForm:TForm);
var
  i:Integer;
  edt: TEdit;
begin
  // recorrer los componentes
  for i := 0 to (AForm.ComponentCount - 1) do begin
    // Es un TEdit
    if (AForm.Components[i] is TEdit) then begin
      // Limpiar el edit
      edt := TEdit(AForm.Components[i]);
      edt.Clear;
     //      edt. ....  //otras propiedades
    end;
  end;

Si hubiera que hacerlo con más tipos de controles, también se podría utilizar RTTI.

De esta forma puedes llamarla como:

Código Delphi [-]
  LimpiarDatos(AForm:TForm);
  LimpiarDatos(formX);
  ...