取DBGRID內一個單元格內的值

type
  TDBGridEx = class(TDBGrid)
    function GetValue(row, col: integer):Variant;
  end;
function TDBGridEx.GetValue(row, col: integer): Variant;
begin
  // TDBGrid有行列索引，但它們是protected的
  self.Row := row;
  self.Col := col;
  Result := self.SelectedField.AsVariant;
end;

 
設置當前行應該用如下：
  self.DataSource.DataSet.First;
  self.DataSource.DataSet.MoveBy(row);
  self.Col := col;
注意異常處理