奇怪的指针，还是别的什么？ (100分)

yylg · 2004-01-04

有一段程序： type   TCtr = record     v: real;     used:boolean;     v_used:^TCheckBox;     v_set:^TComboBox;   end; ... var   F_zldy: TF_zldy;   ValueChanged:Boolean;   OptionsValue:array [0..8,0..31] of real =( 。。。预定义的值，省略。。。);   pCtr:array [0..8] of TCtr; ... procedure TF_zldy.FormCreate(Sender: TObject); begin   LinkCtr;   InitValue;   InitCtr; end; //这里用指针指向相应的控件，如c_used0（TCheckBox）和cb_set0（TComboBox）等，以便以后统一管理 procedure TF_zldy.LinkCtr; begin   with pCtr[0] do begin v_used:=@c_used0; v_set:=@cb_set0; end;   with pCtr[1] do begin v_used:=@c_used1; v_set:=@cb_set1; end;   with pCtr[2] do begin v_used:=@c_used2; v_set:=@cb_set2; end;   with pCtr[3] do begin v_used:=@c_used3; v_set:=@cb_set3; end;   with pCtr[4] do begin v_used:=@c_used4; v_set:=@cb_set4; end;   with pCtr[5] do begin v_used:=@c_used5; v_set:=@cb_set5; end;   with pCtr[6] do begin v_used:=@c_used6; v_set:=@cb_set6; end;   with pCtr[7] do begin v_used:=@c_used7; v_set:=@cb_set7; end;   with pCtr[8] do begin v_used:=@c_used8; v_set:=@cb_set8; end; end; procedure TF_zldy.InitValue; begin   ValueChanged := false; end; procedure TF_zldy.InitCtr; var i,j:integer;     SL: TStrings; begin   With Qry_zldy.SQL do   begin     Clear;     Add(...用Select打开一张表...);   end;   Qry_zldy.Open ;   with Qry_zldy do   begin     for i:=0 to 8 do     begin       with pCtr do       begin         v_set^.itemindex := fieldbyname('s'+inttostr(i)).AsInteger;         v_used^.checked := fieldbyname('u'+inttostr(i)).Asboolean; //问题就出现在这里，当执行了这一句后，ValueChanged 的值自动被改变成了所取的字段的值了，如True，我试着换变量名，换变量定义的位置，都不行！！！       end;     end   end; end; 是我使用指针的方法不对，还是编译器有毛病？请高手们指教。 我的Email: YYLG@sdu.edu.cn

Aiirii · 2004-01-05

從你的聲明看: var   F_zldy: TF_zldy;   ValueChanged:Boolean; ValueChanged 是個獨立變量, 除非你在尋里還有修改它的地方, 要不然, 不可能啊!

yylg · 2004-01-10

ValueChanged是这个窗口的全局变量，可我执行这段程序时真的很神秘的自动被改变了。

奇怪的指针，还是别的什么？ (100分)

yylg

Unregistered / Unconfirmed

Aiirii

Unregistered / Unconfirmed

yylg

Unregistered / Unconfirmed

Similar threads