Ошибка StackOverFlow

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 изменить?

Переток stackoverflow вызван исчерпанием памяти в стеке. Этот цикл 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;