StringGrid и Вставка в БД

[incoming]

Доброго времени!

Проблема следующая:
Имеется StringGrid, фиксированный заголовок с обозначением имен столбцов (FixedRows = 1). Нужно, чтобы изо всех строк сетки данные добавлялись в таблицу, не захватывая заголовок сетки. Работаю с FireBird 2.5, XE-2, IBX.
Строки в сетку добавляю так:

if sg.RowCount > 1 then
    sg.RowCount := sg.RowCount + 1;

Пытаюсь в цикле вызвать хранимую процедуру (простой insert) с параметрами так:

Код под один столбец. В реале их 4.

    DM.IBSQL1.SQL.Text:=  'execute procedure L_INS(:res)';
    DM.IBSQL1.Transaction.StartTransaction;
    DM.IBSQL1.Prepare;

    for i := 0 to sg.RowCount - 2 do
    begin
      DM.IBSQL1.ParamByName('res').AsInteger :=   StrToInt(sg.Cells[i, 1]);
      DM.IBSQL1.ExecQuery;
    end;
    DM.IBSQL1.Transaction.Commit;

Одна запись добавляется. При добавлении новой строки в сетку и заполнении ее цифрой получаю "Is not a valid integer value".

Как правильно реализовать запись в цикле ? Помогите разобраться.

Заранее благодарен.

[Serge_Bliznykov]

ну, для начала:

 for i := 0 to sg.RowCount - 2 do
    begin
      DM.IBSQL1.ParamByName('res').AsInteger :=   StrToInt(sg.Cells[i, 1]);

в StringGrid свойстве Cells сначала указывается СТОЛБЕЦ, потом уже строка.

[incoming]

Когда заполняю сетку из четырех колонок значениями 1 2 3 4, то этот код выводит их по порядку, как мне и нужно, для сопоставления строк для параметров компонента.

for i := 0 to sg.ColCount - 1 do
      for j:= 1 to sg.RowCount - 1 do
      begin
       // параметры
      ShowMessage(sg.Cells[i, j]);

      end;

Когда добавляю в сетку еще одну строку, получается:
1 2 3 4
5 6 7 8

код выводит такую очередность сообщений: 1-5, 2-6, 3-7, 4-8

Подскажите, что нужно сделать, чтобы данные из сетки читались построчно, т. е. сначала читаются первая строка с ячейками, после переходило на следующую строку и продолжало читать.
Нужно это для добавления данных в таблицу, в которой 4 колонки. Не могу врубиться. ((

[northener]

Сообщение от incoming

Подскажите, что нужно сделать, чтобы данные из сетки читались построчно, т. е. сначала читаются первая строка с ячейками, после переходило на следующую строку и продолжало читать.

Поменять эти два цикла местами.

[incoming]

Спасибо за советы. С выводом сообщения работает )) Но вот теперь с параметрами облом (( Делаю следующее:

DM.IBSQL1.SQL.Text:=  'execute procedure L_INS(:res, :numfl)';
DM.IBSQL1.Transaction.StartTransaction;

for i := 1 to sg.RowCount - 1 do

      for j:= 0 to sg.ColCount - 1 do
        begin
        
          DM.IBSQL1.ParamByName('res').AsInteger :=   StrToInt(sg.Cells[j, i]);
          DM.IBSQL1.ParamByName('numfl').AsInteger :=   StrToInt(sg.Cells[j, i]);

          {ShowMessage(sg.Cells[j, i]); // Работает как нужно}
  

          DM.IBSQL1.ExecQuery;
        end;

      DM.IBSQL1.Transaction.Commit;

При этом получается, что оба параметра имеют одно значение, после оба параметра имеют второе значение. Записи в таблицу пишутся не так, и еще множатся.

То есть получается:

В сетке:


В БД:



Что нужно сделать, чтобы параметры правильно заполнялись ?

[northener]

Значит нужно выкинуть внутренний цикл.

for i := 1 to sg.RowCount - 1 do
      begin
        
        DM.IBSQL1.ParamByName('res').AsInteger :=   StrToInt(sg.Cells[0, i]);
        DM.IBSQL1.ParamByName('numfl').AsInteger :=   StrToInt(sg.Cells[1, i]);

        DM.IBSQL1.ExecQuery;
      end;

[incoming]

Большое спасибо, работает !!! ))