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

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

Макроподстановки [D7]

Alex7 ©   (2005-02-25 09:57:00) 

Уважаемые мастера! Подскажите,пожалуйста, как в Delphi осуществить макроподстановку. Возможно с помощью указателей ?
Например, пытаюсь активизировать все таблицы формы путем:

procedure TForm2.FormCreate(Sender: TObject);
Type Ptab = ^TTable;
Var i:Word;
   Uk1: Ptab;
Begin
 Uk1:= nil;
 For i:=0  To ComponentCount-1 Do
  If Components[i] is TTable Then
   Begin
   Uk1:= @Components[i].Name;
   Uk1.Active := True;  {?????????????????}
   End;
 End;
End.                  

Но ничего не получается. В чем ошибка?

---

КаПиБаРа   (2005-02-25 10:06:00) [1]

procedure TForm2.FormCreate(Sender: TObject);
Var i:Word;
Begin
For i:=0  To ComponentCount-1 Do
 If Components[i] is TTable Then
  TTable(Components[i]).Open;
End;
End.  

---

Poirot   (2005-02-25 10:05:00) [2]

Во-первых, в Делфи классы TTable  в частности это указатели:)
Uk1:= @Components[i].Name; - что-то это вообще глупость какая-то:(
просто
Uk1: TTable;
Uk1 := Components as TTable
Uk1.Active.True;

Что-то вроде этого

---

Наверх