实现隐藏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中，你就知道是怎么回事了。