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

← →
Alex7 (2005-02-25 09:57) [0]

Уважаемые мастера! Подскажите,пожалуйста, как в 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.

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

← →
Poirot © (2005-02-25 10:05) [1]

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

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

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.

Макроподстановки Найти похожие ветки