实现隐藏DBGrid的列 的代码?解决思路

实现隐藏DBGrid的列 的代码?

实现隐藏DBGrid的列   的代码

为什么报错了?内存错误..


procedure   TFiltrateForm.BitBtn1Click(Sender:   TObject);
var
        I,J:Integer;
        FielName1,FielName2:String;
begin
       
        if   ListBox2.Items.Count> 0   then
        begin
            for     I:=0   to   ListBox2.Items.Count-1     do
            begin
                  for   J   :=0     to   ListingForm.DBGrid1.DataSource.DataSet.FieldCount-1   do
                  begin
                        FielName1:=trim(ListBox2.Items.Strings[i]);
                        FielName2:=Trim(ListingForm.DBGrid1.Columns[J].FieldName);
                        If   FielName1=FielName2   then
                                ListingForm.DBGrid1.Columns[j].Visible:=False;                        
                  end;
            end;
        end;
end;

[解决办法]
http://www.tomore.com/1/2324.html
自己下载看看
[解决办法]
for J :=0 to ListingForm.DBGrid1.DataSource.DataSet.FieldCount-1 do
？？？

DBGrid1.Columns.count-1 ???

[解决办法]
ListingForm创建了吗？
[解决办法]
跟踪调试，再不明白就跟到VCL中，你就知道是怎么回事了。