取DBGRID内一个单元格内的值

最新推荐文章于 2023-07-22 22:29:04 发布

xiaomaoxia

最新推荐文章于 2023-07-22 22:29:04 发布

阅读量1.7k

点赞数

分类专栏： DELPHI技术资料文章标签： integer class

DELPHI技术资料专栏收录该内容

31 篇文章 1 订阅

订阅专栏

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;
注意异常处理