Как очистить все окошки редактирования на форме?
Как очистить все окошки редактирования на форме?
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
Содержание Назад Вперед