Cita:
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
for i := 0 to (AForm.ComponentCount - 1) do begin
if (AForm.Components[i] is TEdit) then begin
edt := TEdit(AForm.Components[i]);
edt.Clear;
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);
...