Задача: пересчитать табл. с учетом поправочных коэф. для каждого столба. Ниже привожу кусок проги. Компиляция проходит нормально, а при работе в конце строки SQL[2]... выходит сообщение: EStringListError: List index out of bounds (2).
Как решить эту проблему?

with Query2 do
begin
SQL[0] := 'SELECT q1*kq[1], q2*kq[2], q3*kq[3], q4*kq[4], q5*kq[5], q6*kq[6], q7*kq[7], q8*kq[8], q9*kq[9], q10*kq[10], q11*kq[11], q12*kq[12], q13*kq[13], q14*kq[14],';
SQL[1] := 'q15*kq[15], q16*kq[16], q17*kq[17], q18*kq[18], q19*kq[19], q20*kq[20], q21*kq[21], q22*kq[22], q23*kq[23], q24*kq[24], q25*kq[25], q26*kq[26], q27*kq[27],';
SQL[2] := 'q28*kq[28], q29*kq[29], q30*kq[30], q31*kq[31], q32*kq[32], q33*kq[33], q34*kq[34], q35*kq[35], q36*kq[36], q37*kq[37], q38*kq[38], q39*kq[39], q40*kq[40],';
SQL[3] := 'q41*kq[41], q42*kq[42], q43*kq[43], q44*kq[44], q45*kq[45], q46*kq[46], q47*kq[47], q48*kq[48], q49*kq[49], q50*kq[50], q51*kq[51], q52*kq[52], q53*kq[53],';
SQL[4] := 'q54*kq[54], q55*kq[55], q56*kq[56], q57*kq[57], q58*kq[58], q59*kq[59], q60*kq[60], q61*kq[61], q62*kq[62], q63*kq[63], q64*kq[64], q65*kq[65], q66*kq[66],';
SQL[5] := 'q67*kq[67], q68*kq[68], q69*kq[69], q70*kq[70], q71*kq[71], q72*kq[72], q73*kq[73], q74*kq[74], q75*kq[75], q76*kq[76], q77*kq[77], q78*kq[78], q79*kq[79],';
SQL[6] := 'q80*kq[80], q81*kq[81], q82*kq[82], q83*kq[83], q84*kq[84], q85*kq[85], q86*kq[86], q87*kq[87], q88*kq[88], q89*kq[89], q90*kq[90], q91*kq[91], q92*kq[92],';
SQL[7] := 'q93*kq[93], q94, q95*kq[95], q96*kq[96]';
SQL[8] := 'FROM "result96.DB" Result96';

Close;
Open;
end;

Конечно падает.
TQuery.SQL - это TStrings. Т.е. это динамический список строк, которому надо говорить, чтобы он добавил новые строки.
Почему на 2-ой, а не на 1-ой - вполне возможно, что у тебя в момент рисования были введены пара строк.

Делай так:

Код

Query1.Close;  Query1.SQL.Clear;              // Удаляем старые строки SELECT на всякий пожарный  Query1.SQL.Add('SELECT ...');  Query1.SQL.Add(' ...');  ...  Query1.SQL.Add('FROM ...');  Query1.Open

Код

with Query2 do begin  SQL[0] :=  SQL[1] := end;

Такого я еще ни разу не видел.....

Взято из книги по D4, между прочим. Как, спрашивается, людям учиться программировать при таких ляпах в книгах?