Clear all edit controls on your form (Views: 28)
Problem/Question/Abstract: Clear all edit controls on your form Answer: 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; |