странный результат функций из DLL

[alexdelphi]

Решил изучить механизм создания/подключения DLL. Написал 2 небольших функции, которые считают, соответственно, количество сочетаний из n по k и на этой основе вычисляют биномиальные коэффициенты для выражения (x + y)^n при заданном n.
Сделал две версии использования функций:
1) DLLIMPRT выключен - реализация функций берется из файла с основной программой;
2) DLLIMPRT включен - реализация берется из DLL.
Далее идет код основной программы и код DLL:

{$APPTYPE CONSOLE}
const
  maxpower = 100;
type
  vector = array [0..maxpower - 1] of int64;
{$DEFINE DLLIMPRT}
{$IFDEF DLLIMPRT}
function cmb(const n,k: int64):int64; stdcall; external 'combine.dll';
function binom(pow: word):vector; stdcall; external 'combine.dll';
{$ELSE}
function cmb(const n,k: int64):int64;
  var
    i: integer;
    pr: int64;
  begin
    pr := 1;
    for i := 1 to k do
      pr := (pr * (n - i + 1)) div i; 
    cmb := pr;
  end;
function binom(pow: word):vector;
  var
    i: integer;
  begin
    for i := 0 to pow do
      binom[i] := cmb(pow,i);
  end;
{$ENDIF}
var fac: vector; i,n: integer;
begin
  readln(n);
  write('Cmb: ');
  for i := 0 to n do
    write(cmb(n,i),' ');
  writeln;
  write('Fac: ');
  fac := binom(n);
  for i := 0 to n do
    write(fac[i],' ');
  readln
end.

library combine;
const
  max_power = 100;
type
  base_int_type = int64;
  vector = array [0 .. max_power - 1] of base_int_type; 
function cmb(const n, k: base_int_type): base_int_type; stdcall;
  var
    i: integer;
    pr: base_int_type;
  begin
    pr := 1;
    for i := 1 to k do
      pr := (pr * (n - i + 1)) div i; 
    cmb := pr;
  end;
function binom(pow: word): vector; stdcall;
  var
    i: integer;
  begin
    for i := 0 to pow do
      binom[i] := cmb(pow,i);
  end;
exports
  cmb,
  binom;
begin

end.

Первая функция работает всегда правильно, для второй - первый результат всегда 0:

6
Cmb: 1 6 15 20 15 6 1
Fac: 0 6 15 20 15 6 1

Этот странный глюк с функцией binom происходит только при ее вызове из DLL, в остальных случаях 2 строки с результатами совпадают.
Кто объяснит, в чем дело?
Это один из моих первых опытов создания DLL и - такой косяк...
Примечание: при подключении обычного unit'a с функциями все работало без вопросов.
Примечание 2: использую RAD Studio 2010.

[Stilet]

Проверил на Delphi 6

6
Cmb: 1 6 15 20 15 6 1
Fac: 1 6 15 20 15 6 1

P.S. Впрочем DXE ведет себья так же.

[alexdelphi]

Со включенным DLLIMPRT?

[Stilet]

Я твой код один-в-один скопипастил.
Впрочем перепроверил еще раз радикальнее:

program Project1;

{$APPTYPE CONSOLE}

const
  maxpower = 100;
type
  vector = array [0..maxpower - 1] of int64;

function cmb(const n,k: int64):int64; stdcall; external 'combine.dll';
function binom(pow: word):vector; stdcall; external 'combine.dll';

var fac: vector; i,n: integer;
begin
  readln(n);
  write('Cmb: ');
  for i := 0 to n do
    write(cmb(n,i),' ');
  writeln;
  write('Fac: ');
  fac := binom(n);
  for i := 0 to n do
    write(fac[i],' ');
  readln
end.

6
Cmb: 1 6 15 20 15 6 1
Fac: 1 6 15 20 15 6 1

[alexdelphi]

Спасибо... попробую взять Delphi 7

[3D Hunter]

в Делфи 20хх импорт директив осуществляется через окно свойств проекта. Ctrl+Shift+F11. Delphi Compiler -> Conditional Defines

P.S. И ничего брать не нужно, просто более детально изучить вопрос.

[Stilet]

3D Hunter

Поясни пож. что ты имеешь ввиду? Причем тут директивы?

[GunSmoker]

Может где старый вариант DLL валяется? И именно он используется?

В самом коде ошибок нет, от версии Delphi это точно не может зависеть.

[3D Hunter]

Писал я недавно проект, в котором модуль аппаратной защиты лицензии использовал разные директивы. В зависимости от сочетания директив задействовались те или иные возможности (генерация ключа, шифрование/расшифрование и проверка ключа, поиск всех hwid и построение списка и т.п.). Так вот, по моим наблюдениям и результаттам тестирования директива $define, объявленная в dpr-файле или где-лbбо в коде, не работает. Но если объявить ее в опциях проекта, то действие от нее включается.
З.Ы. в Д7 и более ранних можно было просто указать в проекте директиву. А в новых версиях, видимо, уже нельзя.
директивы при том, что ТС их использует для переключения в коде при компиляции: либо модуль, либо длл. Ошибка скорее в том, что нужно директиву указать так, как я написал. В противном случае имеется неявный конфликт имен функций. Если в чем не прав, поправьте меня и мои мысли.

[GunSmoker]

Директива действует от момента объявления и ниже (т.е. директива в dpr файле не влияет на модули - поэтому и используют {$I defines.inc}). Директива в опциях проекта работает глобально.

Как несложно увидеть: в этом случае - без разницы.