функция внутри цикла

помогите пожалуйсто,

....for i := 0 to F_ReportExcelSailKD.tlSailProduct.AbsoluteCount - 1 do
    begin

      FProgress.Percent := Round
        (((i + 1) / F_ReportExcelSailKD.tlSailProduct.AbsoluteCount) * 1000);

      ANode := F_ReportExcelSailKD.tlSailProduct.AbsoluteItems[i];

       ForExcelForm(ANode, row, rowcell, rowpos, rowdoc); //функция

      row := row + Max(rowcell, Max(rowpos, rowdoc)) + 1;......

function ForExcelForm(ANode: TcxTreeListNode; row: integer;
  rowcell, rowpos, rowdoc: integer): integer; overload;
begin
  if F_ReportExcelSailKD.tlSailProductCN_OBOZN.Values[ANode] = null then
    GetCell(row, CI_NAME).Value := ''
  else
  begin
    SetLongDescValue(F_ReportExcelSailKD.tlSailProductCN_OBOZN.Values[ANode],
      row, CI_NAME, CS_NAME);
    rowcell := SetLongDescValue
      (F_ReportExcelSailKD.tlSailProductCN_OBOZN.Values[ANode], row,
      CI_NAME, CS_NAME);
  end;

  if F_ReportExcelSailKD.tlSailProductCN_TEH_MARSHRUT.Values[ANode] = null then
    GetCell(row, CI_POSTAV).Value := ''
  else
  begin
    SetLongDescValue(F_ReportExcelSailKD.tlSailProductCN_TEH_MARSHRUT.Values
        [ANode], row, CI_POSTAV, CS_POSTAV);
    rowpos := SetLongDescValue
      (F_ReportExcelSailKD.tlSailProductCN_TEH_MARSHRUT.Values[ANode], row,
      CI_POSTAV, CS_POSTAV);
  end;

  if F_ReportExcelSailKD.tlSailProductCN_NOMER_SKLADA_I_DATA.Values[ANode]
    = null then
    GetCell(row, CI_DOC_OBOZN).Value := ''
  else
  begin
    SetLongDescValue
      (F_ReportExcelSailKD.tlSailProductCN_NOMER_SKLADA_I_DATA.Values[ANode],
      row, CI_DOC_OBOZN, CS_DOC_OBOZN);

    rowdoc := SetLongDescValue(F_ReportExcelSailKD.
        tlSailProductCN_NOMER_SKLADA_I_DATA.Values[ANode], row, CI_DOC_OBOZN,
      CS_DOC_OBOZN);
  end;

  if F_ReportExcelSailKD.tlSailProductCN_KOD_OKP.Values[ANode] = null then
    GetCell(row, CI_KOD).Value := ''
  else
  begin
    GetCell(row, CI_KOD).Value :=
      F_ReportExcelSailKD.tlSailProductCN_KOD_OKP.Values[ANode];
  end;

  if F_ReportExcelSailKD.tlSailProductCN_MASSA.Values[ANode] = null then
    GetCell(row, CI_MASS).Value := ''
  else
  begin
    GetCell(row, CI_MASS).Value :=
      F_ReportExcelSailKD.tlSailProductCN_MASSA.Values[ANode];
  end;

  if F_ReportExcelSailKD.tlSailProductCN_DOC_K_OBOZN.Values[ANode] = null then
    GetCell(row, CI_VOSHPL).Value := ''
  else
  begin
    GetCell(row, CI_VOSHPL).Value :=
      F_ReportExcelSailKD.tlSailProductCN_DOC_K_OBOZN.Values[ANode];
  end;

  if F_ReportExcelSailKD.tlSailProductCN_CCE_TIP_MCE.Value = 1 then
    if F_ReportExcelSailKD.tlSailProductCN_QUANTITY.Values[ANode] = null then
      GetCell(row, CI_KOL_IZ).Value := ''
    else
    begin
      GetCell(row, CI_KOL_IZ).Value :=
        F_ReportExcelSailKD.tlSailProductCN_QUANTITY.Values[ANode];
    end;

  if F_ReportExcelSailKD.tlSailProductCN_CCE_TIP_MCE.Value = 4 then
    if F_ReportExcelSailKD.tlSailProductCN_QUANTITY.Values[ANode] = null then
      GetCell(row, CI_KOL_KOM).Value := ''
    else
    begin
      GetCell(row, CI_KOL_KOM).Value :=
        F_ReportExcelSailKD.tlSailProductCN_QUANTITY.Values[ANode];
    end;
end;

возрощает не верное число row, rowcell, rowpos, rowdoc с чем это может быть связано!?

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

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

Ты за помощью пришел, или дурака валять?

что за фигня? где ретурн?

Ramin
что за фигня? где ретурн?

Да фиг с ретурном, он row, rowcell, rowpos, rowdoc хочет получать.
А они у него по значению передаются.

2 Титов: модификатор var в параметры добавь.

чччД
Ramin что за фигня? где ретурн? Да фиг с ретурном, он row, rowcell, rowpos, rowdoc хочет получать. А они у него по значению передаются. 2 Титов: модификатор var в параметры добавь.

а тогда нафиг функция?

Ramin
... а тогда нафиг функция?

От бальшога ума:

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

извените что потревожил догнал че не так исправил работает... а функция нужна т.к. в цикле будет передоватся разные строки в зависимоти от обозначения всем спасибо

Титов
извените что потревожил догнал че не так исправил работает... а функция нужна т.к. в цикле будет передоватся разные строки в зависимоти от обозначения всем спасибо

А теперь быстро бросил клавиатуру и взял в руки учебник русского языка.

и вообще че ругатся то???? че не у кого мозги не клинело что ли!??? или все очень логичные и пишут с первого раза без багов ааа????? если да то научите буду рад стать учаником

defecator,

нет, не буду учить я Русский, у меня других проблем навалом