Привет Всем, прошу помогите!
значит я создаю тип вот такой:
Treport = record
FCount: array [1..6] of word;
TCount: array [1..6] of word;
EXDO : array [1..6] of boolean;
Marks : array [1..6] of byte;
end;
...
//затем объявляю процедуру...
public
{ Public declarations }
Procedure GenerateReport(var report: array of TReport);
end;
implementation

uses ...;

{$R *.DFM}
//описываю её
Procedure Tform1.GenerateReport(var report: array of TReport);
begin
//procedure's body
SetLength(report,N); //error HERE
// etc.
end;

----------------------------------------
Во второй форме в обработчике создаю переменную типа TReport и обращаюсь к процедуре в 1 форме;
var
report : array of TReport;
begin
Form1.GenerateReport(report);
end;

Я так понимаю, я объявил открытый массив в подпрограмме, который "принимает" массив любой длины, НО(!) пучему динамический он "принимает" но не хочет менять его длину... Можно ли как-нибудь это дело реализовать? Заранее спасибо!

А ты не мог бы сказать тип ошибки (что именно он выдает)?

Помоему фукция SetLength предназначена для динамичесих массивов, а не для открытых. А в своей функции ты определяешь открытый массив, передаваемый по ссылке.

2Morpheus
[Error] Incompatible types

2<Spawn>
Как мне передать в процедуру динамический массив... (Это главный вопрос)
Да я определяю открытай массив, и сую туда динамический, который должен в этой процедуре сформироваться!

Динамичексий массив можно передать, например так:

Type
TMyMass:array of Integer;

var
Form1: TForm1;
Mas:TMyMass;

implementation

procedure MyMassProc(var Mas:TMyMass);
begin
//Твой код
end;

array of Integer например

Хорошо попробую! Но по мойму такая конструкция передачи массива будет работать только в одном юните. Если не прудно покажи как это будет выглядеть в public declaration, как в моем примере (помойму нельзя так сделать )

Это сообщение отредактировал(а) Liandry - 14.5.2003, 19:30

Procedure Example(Mas: array of Integer);
Begin
// Здесь что-то делаешь с Mas
End;

И два варианта употребления:

Var Arr: array [1..10] of Integer;

...

Example(Arr);

или

Var Arr: array of Integer;

...

SetLength(Arr,...);
Example(Arr);