// 这里给StringGrid添加内容
var
    RowArray: array of string; // 动态数组的定义
    i: integer;　　　　　　　　　　// 记录StringGrid的行数
begin
    SetLength(ArrayRow, G2.ColumnCount-1);      // 动态数组初始化  首先需要定义长度  才能使用 
    for i := 0 to G2.ColumnCount-1 do begin
      ArrayRow[i] := G2.Cells[i, G2.Selected];  // 将点击的行存入数组内，若比较不相等时，
    end;
end;

// 静态数组，这里取出数组中的数据，并给数组里的数据赋值
var
    DataArray： array[0..9] of Integer = (1,2,3,4,5,6,7,8,9,10); // 静态数组定义，
    i : integer;
begin
    for i := 0 to length(DataArray)-1 do 
    begin
       memo1.Lines.add(DataArray[i].ToString);  // 1...10   若D7则用IntToStr()函数
    end;
　　　DataArray[0] := 9;
 　　 memo1.lines.add(AataArray[0].ToString);
end;