Hola sac.
Es tál cuál como te han comentado los compañeros. Pero vale aclarar que si usas un procedimiento aislado, deberás enviarle el
Parent (form) de los Edits como argumento:
Código Delphi
[-]
procedure Limpiar(aForm: TForm);
var
i: Integer;
begin
for i:= 0 to aForm.ControlCount-1 do
if aForm.Controls[i].ClassType = TEdit then
TEdit(aForm.Controls[i]).Clear;
end;
procedure TForm1.btnLimpiarClick(Sender: TObject);
begin
Limpiar(Self);
end;
En cambio si lo declaras como método del form no es necesario:
Código Delphi
[-]
type
TForm1 = class(TForm)
...
private
procedure Limpiar;
end;
...
procedure TForm1.Limpiar;
var
i: Integer;
begin
for i:= 0 to ControlCount-1 do
if Controls[i].ClassType = TEdit then
TEdit(Controls[i]).Clear;
end;
procedure TForm1.btnLimpiarClick(Sender: TObject);
begin
Limpiar;
end;
Saludos