StringGrid的问题！

Question

我也不知道怎么编代码。
应该不难吧。
不是有一个什么strings.index吗。

Answer 1

是stringgrid1.Row例子如下：procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
application.MessageBox(pchar(inttostr(stringgrid1.Row)),'当前行',mb_ok);end;

Answer 2

程序实现代码：
var
  row1,row2:integer;
  i:integer;
  strList:TStringList;
begin
  row1:=stringgrid1.Row;
  StringGrid2.RowCount:=StringGrid2.RowCount+1;
  row2:=StringGrid2.rowCount;
  strList:=TStringList.Create;
  try
    for i:=0 to StringGrid1.ColCount-1 do
        strList.Add(StringGrid1.Cells[i,row1]);
    StringGrid2.Rows[row2-1].AddStrings(strList);
  finally
    strList.Free;
  end;
end;