Передача хранимой процедуры в качестве параметра в функцию

[xabik]

Доброго времени суток форумчане. Есть код.

 function dfg(var nodes_between_nodes:TADOStoredProc;perekr1,perekr2:Largeint):extended;
begin
  nodes_between_nodes.Active:=false;
  nodes_between_nodes.Parameters.ParamByName('1').Value:=perekr1;
  nodes_between_nodes.Parameters.ParamByName('2').Value:=perekr2;
  nodes_between_nodes.Active:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.text:=FloatToStr(dfg(ADOStoredProc1,StrToInt64(Edit1.Text),StrToInt64(Edit1.Text)));
end;

Вопрос в следующем.
При передаче хранимой процедуры как параметра функции - результат выборки нулевой. Хотя когда вызываем непосредственно из основного кода результат есть. В чем кроется ошибка?

[Serge_Bliznykov]

function dfg(var nodes_between_nodes:TADOStoredProc;perekr1,perekr2:Largeint):extended;

ноль получается в Edit3.text ?!
Тогда ткните меня носом, где Вы возвращаете результат функции dfg

[xabik]

К сожалению так и не разобрался с этим вопросом. Обрисую полную картину.

Что имеем:

1. DataModule1 - дата модуль в котором лежат описанные ниже объекты.
2. MathUnit - юнит в котором описана математика работы с объектами.
3. MainUnit - юнит из которого происходит вызов процедур из MathUnit для работы с объектами из DataModule1.

В DataModule1 есть хранимая процедура TADOStoredProc length_nodes которая имеет два параметра типа longint и две таблицы TADOTable Perekrestok1, Perekrestok2

В Mathunit есть процедура,

procedure LoadLength(var Perekr1, Perekr2:TADOTable;var length_nodes:TADOStoredProc;var ArrLength:TArrLength);
var i,j:integer;
    l,k:LONG64;
begin
  Perekr1.First;
  Perekr2.Last;
  SetLength(ArrLength,Perekr1.RecordCount,Perekr1.RecordCount);
  for i := 0 to Perekr1.RecordCount-2 do begin
    Perekr2.Last;
    for j :=Perekr2.RecordCount downto i+1 do begin
      length_nodes.Active:=false;
      l:=perekr1.FieldByName('id_node_x').AsLargeInt;
      k:=perekr2.FieldByName('id_node_x').AsLargeInt;
      length_nodes.Parameters.ParamByName('1').Value:=l;
      length_nodes.Parameters.ParamByName('2').Value:=k;
      length_nodes.Active:=true;
      length_nodes.First;
      ArrLength[i,j]:=length_nodes.FieldByName('xz').AsFloat;
      Perekr2.Prior;
    end;
    Perekr1.Next;
  end;
  i:=i;
end;

которая вызывается в MainUnit. Последний параметр в процедуре двумерный динамический массив.

  LoadLength(DataModule1.perekrestok1,DataModule1.perekrestok2,DataModule1.length_nodes,ArrLength);

Так вот при вызове данной процедуры не происходит заполнение массива хотя должно так как когда задаешь параметры явно в хранимую процедуру она возвращает значение поля 'xz'. В чем причина подобного поведения для меня загадка.

[Stilet]

К сожалению так и не разобрался с этим вопросом

Проследи свое внимание, прыгун:

Тогда ткните меня носом, где Вы возвращаете результат функции dfg

Это означает что в функции должна присутствовать инструкция Result
А у тебя ее нет.

 function dfg(var nodes_between_nodes:TADOStoredProc;perekr1,perekr2:Largeint):extended;
begin
  nodes_between_nodes.Active:=false;
  nodes_between_nodes.Parameters.ParamByName('1').Value:=perekr1;
  nodes_between_nodes.Parameters.ParamByName('2').Value:=perekr2;
  nodes_between_nodes.Active:=true;
  Result:=Некое вещественное число, однако я не пойму какое именно
end;

Только тогда этот код сможет работать в выражении.

[xabik]

не обращайте внимания на первый пост. Это я написал для примера. Во втором обрисовал полностью картину. Считайте что первого не было

... ещё одну тему заметил.

Если задать параметры жестко через Object Inspector то хранимая процедура выдает один и тот же результат. То есть получается что я не могу изменить параметры у хранимой процедуры

Вот ещё нашел...

http://www.programmingforum.ru/delphi/thread724129.html

[xabik]

Всё!!! Тему можно закрывать. Надо было сделать refresh параметров. И пересоздать их