crdbgrid1.columns.delete(i) doesn't working
Posted: Fri 25 Jul 2008 09:03
I’ve code (like below). On standard dbgrid this procedure working, but here not. Procedure finding expedient column, but doesn’t delete this.
for i := 0 to crdbgrid1.Columns.Count -1 do
if lowercase(crdbgrid1.Columns.Items.Field.FullName) = 'highlight' then begin
showmessage('jest');
crdbgrid1.Columns.Delete(i);
end;
have anyone any idea what to do?
for i := 0 to crdbgrid1.Columns.Count -1 do
if lowercase(crdbgrid1.Columns.Items.Field.FullName) = 'highlight' then begin
showmessage('jest');
crdbgrid1.Columns.Delete(i);
end;
have anyone any idea what to do?