Перебор Memo на PascalSript: возможно ли?

OZZ

Программирую сравнительно давно, но с паскалем раньше не встречался. Подскажите плиз, есть ли возможность перебрать Memo (например с Memo99 до Memo120) и присвоить им невидимость (Memo120.Visible := false;). Я имею в виду какой-нибудь компактный цикл.
Спасибо.

awex

Примерно следущее:
for i := 0 to ControlCount - 1 do
if Controls is TMemo then
TMemo(Controls).Visible := False;

А вообще F1 и смотрим ControlCount и Controls у TWinControl