Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

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

 
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;

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


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

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.  



Страницы: 1 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
14-1108996615
Soft
2005-02-21 17:36
2005.03.13
Скажи Microsoft НЕТ!


3-1107971746
frEE)stylEr
2005-02-09 20:55
2005.03.13
проблема с DBGrid


14-1108983986
КаПиБаРа
2005-02-21 14:06
2005.03.13
По поводу <<Поле "Тема вопроса" не оформлено>>


1-1109506782
alextov
2005-02-27 15:19
2005.03.13
Как создать *.doc файл на основе какого-то шаблона.


1-1109255995
AdmeraL
2005-02-24 17:39
2005.03.13
REGISTRY