stringgrid的小问题！

Question

goEditing   Users can edit the contents of cells. When goEditing is included in Options, goRangeSelect has no effect.
把StringGrid控件的Option属性中的goEditing设置为True就可以了

Answer 1

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  StringGrid1.Cells[ACol,ARow] := 'Macau  '+IntToStr(ACol)+'-'+IntToStr(ARow);
end;

Answer 2

把StringGrid控件的Option属性中的goEditing设置为True就可以了,同意这个说法，下面的是动态赋值。

Answer 3

谢谢！
其实问题是这样的，我用delphi编oracle数据库的程序，代码如下：
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
i,j,k:integer;
begin
i:=stringgrid1.Col;
j:=stringgrid1.Row;
with table1 do
begin
  open;
  edit;
  first;
  for k:=0 to j-2 do
  begin
  if not eof
  then
  next;
  end;
  while not eof do
  begin
    fieldbyname('A').asstring:=stringgrid1.Cells[0,j];
    fieldbyname('B').asstring:=stringgrid1.Cells[1,j];
    fieldbyname('C').asstring:=stringgrid1.Cells[2,j];
    fieldbyname('D').asstring:=stringgrid1.Cells[3,j];
  end;
  post;
  close;
end；
end;
StringGrid1DblClick实现修改的功能。
也就是当双击了cell[i,j]时，就把修改了的内容写回大数据库，可报错误如下：
table1 dataset not in edit or insert mode
可是在程序里我有写“edit”命令啊！
不知何解？
请指教！

Answer 4

不懂你了，这不是这个死循环吗？
while not eof do
  begin
    fieldbyname('A').asstring:=stringgrid1.Cells[0,j];
    fieldbyname('B').asstring:=stringgrid1.Cells[1,j];
    fieldbyname('C').asstring:=stringgrid1.Cells[2,j];
    fieldbyname('D').asstring:=stringgrid1.Cells[3,j];
  end;

Answer 5

对对，是死循环了，找到问题了！还有就是我想问下，table有没有什么函数可以指向某条记录，
比如我想指向strgrid.Row条记录！

Answer 6

怎样判别StringGrid1 的么个单元格被选种，在线等待！

Answer 7

我好象记得table可以指向某天特指的记录，
但一时想不起是哪天函数了，
请指教！