Question

我有DBGrid并使用它将数据转换为Array。但是只要按下按钮执行此过程，我就会收到StackOverFlow错误？这是我使用的代码：

iRy := 0;

iCol := DBGrid.Columns.Count;

sTest := DBGrid.Columns[0].Field.AsString;

While sTest <> '' do
  begin
   for k := 1 to iCol do
    begin
     arrData[iRy+1,iCol] := DBGrid.Columns[iCol].Field.AsString;
    end;
   Inc(iRy);
   DBGrid.DataSource.DataSet.Next;
   sToets := DBGrid.Columns[0].Field.AsString;
  end;

我正在使用Delphi 7。

Answer 1

sTest何时更改？

堆栈溢出是由堆栈上的内存不足引起的。这个While循环将永远存在。你需要将sTest设置为循环中除“'之外的其他东西，或者你可能想要使用if语句。

Answer 2

您有几个问题：

在初始化之后（循环之前），你永远不会为sTest分配任何其他内容
您不断循环同一条记录，因为没有Next，也没有sTest的更改。一旦你开始循环，你就呆在那里。
您将超过Columns的结尾，因为您将转到Column.Count，最后一个有效索引是Column.Count - 1

请尝试使用此功能，看看它是否更适合您：

iRy := 0;
sCol := DBGrid.Columns.Count - 1;

// I'm not sure why you're not putting this in the first (0 index) element
// of arrData - is that intentional?
sTest := DBGrid.Columns[0].Field.AsString;

while (sTest <> '') and (not DBGrid.DataSource.DataSet.Eof) do
begin
  for k := 1 to iCol do
    arrData[iRy, iCol] := DBGrid.Columns[iCol].Field.AsString;
  DBGrid.DataSource.DataSet.Next;
  Inc(iRy);
  sTest := DBGrid.Columns[0].Field.AsString; 
end;

StackOverFlow错误

2 个答案: