dll Tipos de Variáveis em Dll criada no Delphi

[Manoel010953 0]

Bom Dia pessoal, tudo bom? Sou novo em programação e estou tentando criar uma dll no delphi. 

Essa dll vai ser usada em uma aplicação do delphi também.

Queria saber se é possível utilizar vetores e matrizes e como fazer isso pois eu tentei declarar como um array of array of (um tipo), mas dá erro (essas matrizes seriam parâmetros da função). Colocando só como array of (um tipo) funciona, mas ao tentar acessar a função na dll dá um access violation. Eu já havia criado essa função dentro da minha aplicação e estava funcionando, mas na dll da esse erro. Eu tentei usar um ponteiro também, mas continua dando o erro. Por favor me ajudem.

Segue o código:

 

library NDC_Generator;

uses
  SysUtils,
  Dialogs,
  Classes;

  Type
  Matriz = Array of array of string;
  P1 = ^Matriz;

{$R *.res}

procedure MensagemConfirmacao(AMensagem: WideString); stdcall;
begin
  MessageDlg(AMensagem, mtInformation, [mbOk], 0);
end;

function gerarcombinacoes(Mat: P1; Xb, Total, np,
  NumCri: integer; mp, bud: Double; Pointer: P1): string; stdcall;
var
  i, j, k, T, a, p: integer;
  aux1: string;
  R0: Double;
  vetop, vmax: array of integer;
  matrizaj: array of array of integer;
  vetmax, vetmin: array of Double;
  vet_aux, Vetname: array of string;
  matrizaux1 : array of array of Double;
  matriz_result: array of array of String;

begin
  setlength(vetop, np);
  setlength(vmax, np);
  setlength(matrizaj, T, np);
  setlength(vetmax, NumCri);
  setlength(vetmin, NumCri);
  setlength(vet_aux, T);

  p := 0;

  for i := 0 to np - 1 do
  begin
    vmax[np - i - 1] := Xb - i;
  end;

  for i := 0 to np - 1 do
    vetop := i + 1;
  vetop[np - 1] := np - 1;

  for i := 0 to NumCri - 1 do
  begin
    vetmin := 100000;
    vetmax := -1;
  end;
  i := 0;
  T := 0;

  while (T < Total) do // Gerar as combinações com np elementos
  begin
    if T <> 1 then
      i := np;

    while (i > 0) do // Verifica se alguma das posições já atingiu seu máximo
    begin
      if (i - 1) <> 0 then // Verifica se não se trata da primeira posição que atingiu seu máximo
      begin
        if (vetop[i - 1] = vmax[i - 1]) and (vetop[i - 2] < vmax[i - 2]) then
        begin
          vetop[i - 2] := vetop[i - 2] + 1;
          vetop[i - 1] := vetop[i - 2]; ;
          if (i < np) then
            for j := i to np - 1 do
              vetop[j - 1] := vetop[j - 2] + 1;
          vetop[np - 1] := vetop[np - 2];
          break;
        end; // vetop
      end; // 0
      i := i - 1;
    end; // while i>0
    vetop[np - 1] := vetop[np - 1] + 1;

    R0 := 0;
    for k := 0 to np - 1 do
      R0 := R0 + StrToFloat(
        Mat^[vetop[k] - 1, NumCri + 1]);

    if R0 <= bud then 
    begin
      p := p + 1;
      setlength(matrizaux1, p, NumCri + 1);
      setlength(Vetname, p);
      for a := 0 to NumCri - 1 do
      begin
        for k := 0 to np - 1 do
          matrizaux1[p - 1, a] := matrizaux1[p - 1, a] + StrToFloat(
             Mat^[vetop[k] - 1, a + 1] );


        if (matrizaux1[p - 1, a] > vetmax[a]) then
          vetmax[a] := matrizaux1[p - 1, a];
        if (matrizaux1[p - 1, a] < vetmin[a]) then
          vetmin[a] := matrizaux1[p - 1, a];
      end;
      matrizaux1[p - 1, NumCri] := R0;

     a:= 0;

      for k := 0 to np - 1 do
        Vetname[p - 1] := Vetname[p - 1] +
        Mat^[ vetop[k] - 1,a]  + ' ';
    end; // R0 <= Bud

    T := T + 1;
  end; // While


  a := 0;
  k := 0;
  for i := 0 to p - 1 do
  begin
    if mp <> 0 then
      for j := 0 to NumCri - 1 do
      begin
        if vetmax[j] <> vetmin[j] then
        begin
          R0 := (matrizaux1[i, j] - vetmin[j]) / (vetmax[j] - vetmin[j]);
        end
        else
          R0 := 1;
        if R0 >= mp then
        begin
          a := a + 1;
        end
        else
          break;
      end
      else
        a := NumCri;
    if a = NumCri then
    begin
      k := k + 1;
      for j := 0 to NumCri do
      begin
        setlength(matriz_result, k, NumCri + 2);
        matriz_result[k - 1, j+1] := floattostr( matrizaux1[i, j]);
      end;
      matriz_result[k - 1, 0]:= Vetname;
    end;
    a := 0;
  end;
  for I := 0 to k - 1 do
    for j := 0 to numcri + 1 do
      Pointer^[i,j]:= matriz_result[i,j];

  MensagemConfirmacao('Foram geradas' + inttostr(k) + 'combinações!');
  Result := '0';
end;

exports
gerarcombinacoes;

end.