В delphi 7 не предусмотрен возврат массива как результат работы функции?

[Illusiony]

В delphi 7 не предусмотрен возврат массива как результат работы функции?

При этом размер массива должен определяться в самой функции ( т.е. заранее не известен).

[lollollollol]

так через указатель на переменную

[Illusiony]

Я совсем поверхностно знаю delphi7. Могли бы привести пример использования?
Пример функции для эксперимента:

function sort_by_min(mas:array of Integer;max:integer):integer;
var mas_1,mas_2:array of integer;
i:Integer;
begin
  SetLength(mas_1, length(mas)); 
  SetLength(mas_2, length(mas));
i:=0;
  for i:=0 to length(mas)-1 do  begin
    mas_1[i]:=max[i]
  end;
  for i:=0 to length(mas)-1 do  begin
    mas_2[i]:=min_index_array(mas_1,100);
    mas_1[mas_2[i]]:=max;
  end;
  Result:=mas_2;
end;

Как в таком случае объявлять тип возвращаемого параметра функции?

[Аватар]

type TDunArray = array of Integer;

function TestDunArray(Count: integer): TDunArray;
var i: Integer;
begin
  SetLength(Result,Count);
  for i:=0 to Count-1 do Result[i]:=i;
end;

procedure TForm1.Button1Click(Sender: TObject);
var d: TDunArray;
    i: Integer;
begin
  d:=TestDunArray(4);
  for i:=0 to High(d) do Memo1.Lines.Add(IntToStr(d[i]));
  SetLength(d,0);
end;

[Illusiony]

сделал так:

procedure TForm2.FormCreate(Sender: TObject);
//var test_mas_1:array[0..5] of Integer; //этот массив объявлен как глобальный
begin
test_mas_1[0]:=160;
test_mas_1[1]:=123;
test_mas_1[2]:=144;
test_mas_1[3]:=177;
test_mas_1[4]:=159;
test_mas_1[5]:=200;
end;

function min_index_array(mas:array of Integer;max:integer):integer;
var index,i:Integer;
begin
index:=-1;
i:=0;
  for i:=0 to length(mas)-1 do  begin
    if mas[i]<max then begin
      max:=mas[i];
      index:=i;
    end;

  end;
  Result:=index;
end;

type TReturnArray=array of Integer;

function sort_by_min(mas:array of Integer;max:integer):TReturnArray;//
var mas_1:array of integer;
//mas_2:TReturnArray;
i:Integer;
begin
  SetLength(mas_1, length(mas)); // 
  SetLength(Result, length(mas)); //
i:=0;
  for i:=0 to length(mas)-1 do  begin
    mas_1[i]:=mas[i];
  end;
  for i:=0 to length(mas)-1 do  begin
    Result[i]:=min_index_array(mas_1,100);
    mas_1[Result[i]]:=max;
  end;
end;

потом:

procedure TForm2.btn4Click(Sender: TObject);
var str:string;
array_1:TReturnArray;
i:Integer;
begin
  sort_by_min(test_mas_1,100);
end;

Выдает ошибку на этапе закрытия программы. Не на компиляции не на запуске и нажатии кнопки на форме, а после закрытия программы.

[newerow1989]

А если так:

function sort_by_min(mas:TReturnArray;max:integer):TReturnArray;//
var mas_1:TReturnArray;

[Illusiony]

Все равно после закрытия программы ошибка.

[Stilet]

после закрытия программы ошибка.

Причем текст ошибки как всегда... Ну ты понял, да?

[Illusiony]

Сообщение от Stilet

Причем текст ошибки как всегда... Ну ты понял, да?

Да я понимаю что не даю саму ошибку но что даст эта ошика, как обычно ошибка чтения по адресу 100500 и толку?
Выяснил что она ии за логической ошибки в коде.
Всем спасибо за ответы.

[Stilet]

Просто так скажу:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }
  TReturnArray=array of Integer;
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var    a,b:TReturnArray;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
function min_index_array(mas:TReturnArray;max:integer):integer;
var index,i:Integer;
begin
index:=-1;
i:=0;
  for i:=0 to length(mas)-1 do  begin
    if mas[i]<max then begin
      max:=mas[i];
      index:=i;
    end;

  end;
  Result:=index;
end;

function sort_by_min(mas:TReturnArray;max:integer):TReturnArray;//
var i:Integer;
begin
  SetLength(Result,Length(mas));
  for i:=0 to length(mas)-1 do  begin
    Result[i]:=min_index_array(mas,max);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetLength(a,10);
 b:=sort_by_min(a,0);
 SetLength(a,0);
 SetLength(b,0);
end;

end.

Проверил - все в порядке.