var
RowArray: array of string;
i: integer;
begin
SetLength(ArrayRow, G2.ColumnCount-1); // 动态数组初始化 先定义长度
for i := 0 to G2.ColumnCount-1 do begin
ArrayRow[i] := G2.Cells[i, G2.Selected]; // 将点击的行存入数组内，若比较不相等时，则post提交保存数据。
end;
end;
原文：http://www.cnblogs.com/studypanp/p/4918795.html