StackOverFlow错误
StackOverFlow错误
提问于 2013-06-30 14:56:26
我有一个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。
回答 2
Stack Overflow用户
发布于 2013-06-30 18:59:51
sTest什么时候会改变？
堆栈溢出是由堆栈上的内存不足引起的。这个While循环将永远消失。您需要在循环中将sTest设置为'‘以外的值，或者您可能打算使用if语句。
Stack Overflow用户
发布于 2013-06-30 22:49:23
你有几个问题：
在初始化之后(在循环之前)，，
- ，
sTest，
，
- ，
，
- ，你会不断地遍历相同的记录，因为没有
Next，也没有对sTest的更改。一旦你开始循环，你就停留在那里，因为你要去Columns的末尾，最后一个有效的索引是
，
- ，
Columns，Column.Count
试试这个，看看它是不是更符合你的需求：
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;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/17387974
复制相关文章
相似问题
腾讯云开发者
