| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

синтаксис оператора with

Страницы:   < 1 2 >

irena ©   (2006-06-15 18:11:00) 

Уважаемые мастера! Не подскажете, как передать параметр функции, если значение этого параметра полностью совпадает с операндом конструкции with?  (можно, конечно, совсем убрать with, но в условии "if" необходимо его присутствие, причем несколько раз)

for i:=0 to ComponentCount-1 do
  begin
    with Components[i] do
      if ClassNameIs('TLabel') {и еще несколько проверок} then
          MyFunction(???);   //Components[i] as TLabel);
  end;

---

irena   (2006-06-15 18:36:00) [21]

Спасибо!
А жаль, что не придумали какого-то заменителя типа Self ....
:-)

---

MBo   (2006-06-15 18:30:00) [22]

begin
   c:=Components[i];
   if c is TLabel ...

MyFunction(TLabel(c));

---

Loginov Dmitry   (2006-06-15 18:30:00) [23]

irena ©   (15.06.06 18:11)
Не подскажете, как передать параметр функции, если значение этого параметра полностью совпадает с операндом конструкции with?

Никак наверное... Просто не используйте в данном случая with и все...

---

irena   (2006-06-15 18:27:00) [24]

увы, в моем случае это не проходит...
Delphi пытается вычислить значение [i]-того компонента на Components[i]

---

Desdechado   (2006-06-15 18:17:00) [25]

внутри with(ab) можно обращаться к AB напрямую, т.е. написать  MyFunction(AB);

---

Страницы:   < 1 2 >

Наверх