線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1221
推到 Plurk!
推到 Facebook!

動態新增 TDBGrid 的TColumn 但在 free時 出現 問題

答題得分者是:l630521
danajn
一般會員


發表:14
回覆:29
積分:8
註冊:2002-08-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-22 14:27:00 IP:220.130.xxx.xxx 未訂閱
如題 例: 新增時... for n:=0 to 4 do begin sField:='xxx' sColumns:=DBGrid1.Columns.Add; sColumns.FieldName:=sField; sColumns.Title.Caption:=sColumns.Field.DisplayLabel; end; dbgrid 的畫面的確有出現5個欄位 free 掉 with TDBGrid(Sender) do for n :=0 to Columns.Count-1 do begin Columns.Items[n].Free; end; 卻出現 List index out of bound(3) 謝謝
l630521
資深會員


發表:15
回覆:349
積分:372
註冊:2003-02-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-22 14:36:50 IP:220.228.xxx.xxx 未訂閱
試試看 with TDBGrid(Sender) do for n :=Columns.Count-1 to 0 do begin Columns.Items[n].Free; end; Ian
danajn
一般會員


發表:14
回覆:29
積分:8
註冊:2002-08-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-22 14:50:57 IP:220.130.xxx.xxx 未訂閱
dear I630521 使用 with TDBGrid(Sender) do for n :=Columns.Count-1 downto 0 do begin Columns.Items[n].Free; end; 即ok thx
系統時間:2024-07-06 19:50:34
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!