[Ludo]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

var mas: array of integer;           i: integer; begin    DataModule1.StoredProc.Close;     DataModule1.StoredProc.ProcedureName:='SelectNomKey';     DataModule1.StoredProc.Parameters.Clear;     DataModule1.StoredProc.Parameters.Refresh;     DataModule1.StoredProc.Parameters.ParamByName('@name_key').Value:=FormMain.EditPoiskKey.Text;     DataModule1.StoredProc.ExecProc;     DataModule1.StoredProc.Active:=True;     DataModule1.StoredProc.First;     if (DataModule1.StoredProc.RecordCount>0) then         SetLength(mas,DataModule1.StoredProc.RecordCount);    //по названию ключевого_поля выбираю все коды этих полей и помещаю в дин. массив        for i:=0 to DataModule1.StoredProc.RecordCount-1 do       begin         mas[i]:=DataModule1.StoredProc.FieldValues['nom_key'];         DataModule1.StoredProc.Next;       end;    //все номера (может быть несколько) записываю в массив, после чего по этим кодам ключ. слов ищу документы        for i:=0 to length(mas)-1 do     begin       DataModule1.StoredProc.Close;       DataModule1.StoredProc.ProcedureName:='PoiskNomKey';       DataModule1.StoredProc.Parameters.Clear;       DataModule1.StoredProc.Parameters.Refresh;       DataModule1.StoredProc.Parameters.ParamByName('@nom_key').Value:=mas[i];       DataModule1.StoredProc.ExecProc;       DataModule1.StoredProc.Active:=True;       DataModule1.StoredProc.First;      FormMain.GridRezPoisk.DataSource.DataSet.FieldByName('nom_doc_com').AsString;       DataModule1.StoredProc.Next;     end;     finalize(mas); end;

У меня, в dbgrid записывается последняя запись, т.е. как первая нужная запись находится она отображается в dbgrid, если находится вторая, то она заполняется вместо первой... а мне нужно чтобы все записи попадали. Можно ли сделать, чтобы записи добавлялись и все отображались в dbgrid'e, а не последняя найденная..?
Помогите пожалуйста в этом разобраться.