TStringGrid、TGrid 都是从 TCustomGrid 继承; 区别有:
1、它们的列对象分别是: TStringColumn、TColumn;
2、TStringGrid 比 TGrid 多出了 Cells[] 属性.

因为 TGrid 没有 Cells[] 属性, 暂时不方便使用; 我尝试取其当前单元值时竟然用了这样的代码:
(Grid1.Columns[Grid1.ColumnIndex].CellControlByRow(Grid1.Selected) as TTextCell).Text

TStringGrid 测试:


{ 设计时放好 StringGrid1, 运行时填充数据 }
procedure TForm1.FormCreate(Sender: TObject);
var
  i,c,r: Integer;
begin
  StringGrid1.AlternatingRowBackground := True;
  StringGrid1.UseSmallScrollBars := True;
  for i := to do //从设计时添加列比这方便
  begin
    with TStringColumn.Create(Self) do
    begin
      Parent := StringGrid1;
      Width := StringGrid1.ClientWidth / ;
    end;
  end;
  StringGrid1.RowCount := ;
  for c := to StringGrid1.ColumnCount - do
    for r := to StringGrid1.RowCount - do
      StringGrid1.Cells[c, r] := Format('%d,%d', [c, r]);
end; { 取当前单元值 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(StringGrid1.Cells[StringGrid1.ColumnIndex, StringGrid1.Selected]);
end;

成员概览:

{ TCustomGrid }
public
  constructor Create(...); override;        //
  destructor Destroy; override;            //
  function ColumnByIndex(...): TColumn;    //根据索引获取列对象
  function ColumnByPoint(...): TColumn;    //根据位置获取列对象
  function RowByPoint(...): Integer;        //根据位置获取行号
  procedure AddObject(...); override;      //
  property TopRow: Integer ...;            //获取可见的首行的行号
  property VisibleRows: Integer ...;        //获取可见的行总数
  property ColumnCount: Integer ...;        //列数(也是只读)
  property ColumnIndex: Integer ...;        //获取或设置列索引
  property Columns[Index: Integer]: TColumn ...; //以数组索引的方式获取列对象
  property RowCount: Integer ...;          //行数(可读写)
  property Selected: Integer ...;          //当前行号
  property OnGetValue: TOnGetValue ...;    //取值时
  property OnSetValue: TOnSetValue ...;    //赋值时
published
  property StyleLookup;                    //
  property AlternatingRowBackground: Boolean ...; //是否使用交替背景; 默认 False
  property CanFocus default True;          //
  property DisableFocusEffect default True; //是否取消焦点特效
  property RowHeight: Single ...;          //行高
  property ShowSelectedCell: Boolean ...;  //是否呈现单元选择效果; 默认 True
  property ShowVertLines: Boolean ...;      //是否显示竖格线
  property ShowHorzLines: Boolean ...;      //是否显示横格线
  property ShowHeader: Boolean ...;        //是否显示表格头
  property ReadOnly: Boolean ...;          //是否只读; 默认 False
  property TabOrder;                        //
  property OnEdititingDone: TOnEdititingDone ...; //输入时
end; { TGrid }
TGrid = class(TCustomGrid)
published
  property RowCount;  //
  property OnGetValue; //
  property OnSetValue; //
end; { TStringGrid }
public
  property Cells[ACol, ARow: Integer]: string ...; //
published
  property RowCount;  //
end;

05-11 13:31