Question

delphi dbgrid 中删除一列

procedure TForm2.click1(Sender: TObject);var
DBGridColumn: TColumn;
columnindex : integer;
begin
if form2.CheckBox1.Checked then
begin
DBGridColumn := DBGrid2.Columns.Add;
DBGridColumn.Title.Caption := 'CODE_1';
DBGridColumn.FieldName := ('CODE_1');
dbgridcolumn.Width :=60;
end; if form2.CheckBox1.Checked = false then
dbgrid2.Columns.Delete();
//这里我想删除我上面创建的那列，但是delete中index我不知道，这个怎么写
end；

Answer 1

DBGridColumn := DBGrid2.Columns.Add;

index1:=DBGridColumn .index;

Answer 2

colID : int
i: int;
for i :=0 to DBGrid2.Columns.count-1 do
if DBGrid2.Columns.items[i] = 'CODE_1' then
DBGrid2.Columns[i].delete;