Функция возвращающая массив

[babaj]

Здравствуйте, проблема такая: как я понял в Delphi функция не может возвращать массив, то есть

function f() : array of Integer;

не прокатит, сделал

type
  ArrayOfInteger = array of Integer;

...

function f() : ArrayOfInteger;

вроде все нормально, но ругается на

var
  a : array of Integer;
begin
  a := f();

говорит что типы не совпадают, вот так все нормально

var
  a : ArrayOfInteger;
begin
  a := f();

но как-то не по Русски, может есть другие варианты?

[Terran]

Function Mass(Var A: Array Of Integer): Boolean;
Begin
...
End;

[Impuls1989]

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

но как-то не по Русски, может есть другие варианты?

А почему не по Русски? Ведь типы у Вас действиетльно не совпадают. a:ArrayOfInteger и a:array of Integer - это не одно и тоже.

[babaj]

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

А почему не по Русски? Ведь типы у Вас действиетльно не совпадают. a:ArrayOfInteger и a:array of Integer - это не одно и тоже.

ну по сути и то и другое это ссылки на целочисленные массивы.

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

Function Mass(Var A: Array Of Integer): Boolean;
Begin
...
End;

с массивом ссылок не проходит такой вариант почему-то

type
  RPRec = ^RRec;

  arrayOfRPRec = array of RPRec;

  RRec = record
  end;

  TClass = class(TObject)
    private
      FArrays : array of array of RPRec;
    public
      procedure getNextArray1(var AArray : array of RPRec);
      function getNextArray2() : arrayOfRPRec;
  end;

...

procedure TClass.getNextArray1(var AArray : array of RPRec);
begin
  AArray := self.FArrays[0]; // [Error] Incompatible types: 'Array' and 'dynamic array'
end;

function TClass.getNextArray2() : arrayOfRPRec;
begin
  result := self.FArrays[0]; // [Error] Incompatible types
end;

[Вавел из ГМТУ]

А вот какнибудь так:

Function Proba: TBoundArray;
Var
  i : Integer;
Begin
  SetLength(Result, 11);
  For i := 0 to 10 Do Result[i] := i;
End;

[babaj]

Сообщение от Вавел из ГМТУ

А вот какнибудь так:

Function Proba: TBoundArray;
Var
  i : Integer;
Begin
  SetLength(Result, 11);
  For i := 0 to 10 Do Result[i] := i;
End;

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

[Daramant]

Если объявил тип arrayofRPRec, то и использую его кругом:

type
RPRec = ^RRec;

arrayOfRPRec = array of RPRec;

RRec = record
end;

TClass = class(TObject)
private
FArrays : array of arrayOfRPRec;
public
procedure getNextArray1(var AArray : arrayOfRPRec);
function getNextArray2() : arrayOfRPRec;
end;


procedure TClass.getNextArray1(var AArray : arrayOfRPRec);
begin
AArray := self.FArrays[0];
end;

function TClass.getNextArray2() : arrayOfRPRec;
begin
result := self.FArrays[0];
end;

[babaj]

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

Если объявил тип arrayofRPRec, то и использую его кругом:

ну это-то понятно, я думал может можно обойтись как-нить без arrayofRPRec, просто тогда придется и в других модулях его юзать, что уменьшает универсальность модуля.

[Daramant]

что уменьшает универсальность модуля

Для того, чтобы универсальность не страдала, используй классы:
Вместо

RRec = record
end;

RRec = class
end;

RRec будет базовым классом. В дальнейшем при расширении программы, необходимо будет лишь создать наследников и доработать необходимый функционал. Остальной код останется прежним.

просто тогда придется и в других модулях его юзать

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

P.S. На твой выбор (в зависимости от деталей решаемой задачи): либо описать класс arrayofRPRec, либо RRec.