Тема: выборка 1 Memo по индексу выпадающнго списка
Показать сообщение отдельно
  #2  
Старый 04.02.2012, 21:30
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Код:
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TMemo) and ((Components[i] as TMemo).Parent = GroupBox1) then
      ...
так пойдёт?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием