读代码，看不懂的问题！

[tiancanshi]

读代码遇到：
············
tblCzy: TADOTable;
tblGhs: TADOTable;
tblKh: TADOTable;
tblJldw: TADOTable;
tblCklb: TADOTable;
tblHwlb: TADOTable;

···········
procedure TfrmJbda.FormShow(Sender: TObject);
var
PtblTemp: ^TADOTable;
I: Byte;
begin

PtblTemp := @tblCzy;

for I := 0 to 5 do
begin
PtblTemp^.Connection := LogonInf.dbJbda;
PtblTemp^.Open;
Inc(PtblTemp);
with pgcMain, LogonInf do
Pages[I].TabVisible := FunctionLst.Strings[I] = '真';
end;

Inc(PtblTemp)和for 循环搭配能起到的作用是什么？难道是对上面五个tadotable操作吗？怎么理解？？

[GreenWaterBlueSky]

你最好把FormCreate的部分也贴出来，我觉的，在Show之前一定对五个tadotable做了一些动作，不然这里就让人感觉有点莫名其妙

[fancier]

嗯！
可能将那几个ADOTable的地址连在一起，并以PtblTemp的为起始。

[fancier]

然后同过移动地址访问，如Inc(PtblTemp);

[tiancanshi]

to:GreenWaterBlueSky(碧水蓝天)
没有FormCreate事件或者类似的其他事件.

to:fancier(OP&&(C/C++))
找不到将几个ADOTable连在一起的语句。
真是奇怪？？

[delphi_xizhousheng]

估计几个ADOTABLE的地址是相邻的

[tiancanshi]

看不出来哪相邻，除了定义的时候。