Array als Referenz einer Methode übergeben

[taaktaak]

Verstehe ich das richtig?
Meinst du so etwas...

Delphi-Quellcode:

type tNumArray = Array of Byte;

var  NumArray  : tNumArray;

procedure AddNumbers(var a:tNumArray);
begin
  SetLength(a,High(a)+3); // add 2 numbers
  a[High(a)-1]:=44;
  a[high(a)  ]:=55;
end;

procedure TfoTest03.FormShow(Sender:TObject);
var i : Integer;
begin
  SetLength(NumArray,Listbox1.Items.Count);

  for i:=0 to Listbox1.Items.Count-1 do        // array aus listbox1
   NumArray[i]:=StrToInt(Listbox1.Items[i]);   // füllen

  AddNumbers(NumArray);                        // array erweitern

  for i:=0 to high(NumArray) do                // array in listbox2
   Listbox2.Items.Add(IntToStr(NumArray[i]))   // anzeigen
end;