Как передать результат функции как Array of Byte?

[Alex Cones]

Собственно функция (как вариант - процедура) должна получить Array of Byte (только с заданным размером и заранее неизвестным - (8,5,3,4) и выдать результат как Array of Byte ( Опять таки неизвестно заранее, какой у него будет размер на выходе) Как это правильно записать и реализовать?

[Arigato]

type TArrayOfByte = array of Byte;

procedure ProcName (AB: TArrayOfByte);
begin
...
end;

[Alex Cones]

Никогда не дружил с указателями, дайте пример, пожалуйста.

[raxp]

так дык, пример-же готов практически с поста 2:

type TArrayOfByte = array of Byte;
var inpm, outm: TArrayOfByte;


function ProcName(AB: TArrayOfByte): TArrayOfByte;
var i: integer;
begin
 // или работаем
 for i:=0 to length(AB)-1 do
  AB[i]:= AB[i] +1;

 // или добавляем данные
 setlength(AB, length(AB)+1); // 
 AB[length(AB)-1]:= 2; // 

 // и результат
 result:= ab
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i: integer;
begin
 setlength(inpm,5);
 for i:=0 to length(inpm)-1 do
  inpm[i]:= i;


 outm:= ProcName(inpm);
 for i:=0 to length(outm)-1 do
  memo1.Lines.add(inttostr(outm[i]))
end;

[Alex Cones]

так дык, пример-же готов практически с поста 2:

Я набрал сообщение раньше, чем Arigato дополнил пост.

Спасибо. Попробую.