2009. október 26., hétfő

Clear all edit controls on your form


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;

Nincsenek megjegyzések:

Megjegyzés küldése