关于一些dbgrideh字段的属性有没有简单的写法？

[GZSYSTEM]

今天要针对dbgrideh某个列允许编辑，其它字段全部设为只读不知有没有简单的写法？我这样写太复杂了，谁教我的种简单的写法？
DBGridEh1.Columns[0].ReadOnly:=true;
DBGridEh1.Columns[1].ReadOnly:=true;
DBGridEh1.Columns[2].ReadOnly:=true;
DBGridEh1.Columns[3].ReadOnly:=true;
DBGridEh1.Columns[4].ReadOnly:=true;
DBGridEh1.Columns[5].ReadOnly:=true;
DBGridEh1.Columns[6].ReadOnly:=true;
DBGridEh1.Columns[7].ReadOnly:=true;
DBGridEh1.Columns[8].ReadOnly:=true;
DBGridEh1.Columns[9].ReadOnly:=true;
DBGridEh1.Columns[10].ReadOnly:=true;
DBGridEh1.Columns[11].ReadOnly:=true;
DBGridEh1.Columns[12].ReadOnly:=true;
DBGridEh1.Columns[13].ReadOnly:=true;
DBGridEh1.Columns[14].ReadOnly:=true;
DBGridEh1.Columns[15].ReadOnly:=true;
DBGridEh1.Columns[16].ReadOnly:=true;
DBGridEh1.Columns[17].ReadOnly:=true;
DBGridEh1.Columns[18].ReadOnly:=true;
DBGridEh1.Columns[19].ReadOnly:=true;
DBGridEh1.Columns[20].ReadOnly:=true;
DBGridEh1.Columns[21].ReadOnly:=true;
DBGridEh1.Columns[22].ReadOnly:=true;
DBGridEh1.Columns[23].ReadOnly:=true;
DBGridEh1.Columns[24].ReadOnly:=true;
DBGridEh1.Columns[25].ReadOnly:=true;
DBGridEh1.Columns[26].ReadOnly:=false;
DBGridEh1.Columns[27].ReadOnly:=true;
DBGridEh1.Columns[28].ReadOnly:=true;
DBGridEh1.Columns[29].ReadOnly:=true;
DBGridEh1.Columns[30].ReadOnly:=true;
DBGridEh1.Columns[31].ReadOnly:=true;
DBGridEh1.Columns[32].ReadOnly:=true;
DBGridEh1.Columns[33].ReadOnly:=true;
DBGridEh1.Columns[34].ReadOnly:=true;
DBGridEh1.Columns[35].ReadOnly:=true;
DBGridEh1.Columns[36].ReadOnly:=true;
DBGridEh1.Columns[37].ReadOnly:=true;
DBGridEh1.Columns[38].ReadOnly:=true;
DBGridEh1.Columns[39].ReadOnly:=true;
DBGridEh1.Columns[40].ReadOnly:=true;
DBGridEh1.Columns[41].ReadOnly:=true;
DBGridEh1.Columns[42].ReadOnly:=true;
DBGridEh1.Columns[43].ReadOnly:=true;

[kaikai_kk]

var i:integer;

with DBGridEh1 do
for i:=0 to Columns.Count-1 do
Columns[i].ReadOnly:=true;

[我看见佛]

var i:integer;

with DBGridEh1 do
   while i<=Columns.Count-1 do
   begin
      Columns[i].ReadOnly:=true;
      i := i + 1;
   end;

[Steven_WU]

var
i:integer
for i:=0 to DBGridEh1.Columns.Count-1 do
begin
DBGridEh1.Columns[0].ReadOnly:=true;
end;
DBGridEh1.Columns[26].ReadOnly:=false;//想要编辑的列

[kevin_li125]

[Quote=引用 3 楼 steven_wyq 的回复:]
var
i:integer
for i:=0 to DBGridEh1.Columns.Count-1 do
begin
DBGridEh1.Columns[0].ReadOnly:=true;
end;
DBGridEh1.Columns[26].ReadOnly:=false;//想要编辑的列
[/Quote]

楼上的可以。

[想到才能做到]

var i:integer;

with DBGridEh1 do
while i<=Columns.Count-1 do
begin
Columns[i].ReadOnly:=true;
i := i + 1;
end;