Как очистить все окошки редактирования на форме?

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

Взято с Исходников.ru



Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---