VCL Delphi

  1. Home
  2. Delphi
  3. VCL
  4. [] Clear all edit controls on your form
The shortest way to do this:

procedure TForm1.ClearAll;
var
i : integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text := '';
end;