Delphi - база знаний


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


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



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



Начало  Назад  Вперед