DBGride kolonun field adıyla ulaşmak

[NewMember]

arkadaşlar merhaba;

Kod: Tümünü seç

 myGrid.Columns[KolonNo].PickList.Add('Deneme');

kodunda kolon numarası ile ulaşmak yerine bağlı bulunduğu field adıyla nasıl ulaşabiliriz.Çünkü dbgridi runtime de kullanıcı dizayn edip değiştirebiliyor.
Teşekkürler.

[conari]

Şöle bir fonksiyon var.

Kod: Tümünü seç

Function GetColumnByName(const sFieldName : String; oGrid : TDBGrid): Integer;
var
i : Integer;
begin
Result := -1;

for i:=0 to oGrid.Columns.Count-1 do begin
if oGrid.Columns[i].FieldName = sFieldName then begin
Result := i;
break;
end;
end;
end;

Örnek;

DBGrid1.Columns[GetColumnByName('Field1',DBGrid1)].Visible := True;
DBGrid1.Columns[GetColumnByName('Field2',DBGrid1)].Visible := False;
DBGrid1.Columns[GetColumnByName('Field3',DBGrid1)].ReadOnly := False

[sabanakman]

Başka bir yöntem..:

Kod: Tümünü seç

function FindColumn(const DBGrid:TDBGrid;const FName:String):TColumn;
var i:Integer;
begin
  Result:=nil; i:=0;
  while not Assigned(Result) and (i<DBGrid.Columns.Count) do begin
    if AnsiCompareText(DBGrid.Columns[i].FieldName,FName)=0 then
     Result:=DBGrid.Columns[i];
    Inc(i);
  end;
end;
///////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
  FindColumn(myGrid,'AlanAdi').PickList.Add('Deneme');
end;

[NewMember]

@conari ve @sabanakman ikinizede çok teşekkür ederim:her iki yöntemde sorunumu çözüyor...