belieb.Dyn. Array in Procedure mit SetLength verändern

[Dax]

Wenn du immer statt Array of Integer TIntegerDynArray ( = Array of Integer) benutzt, gehts.

Delphi-Quellcode:

type 
  TIntegerDynArray = array of integer;

procedure TForm.Button2Click(Sender: TObject);
var Werte:TIntegerDynArray;
begin
  SetLength(Werte,5);
  SetLaenge(Werte,Werte);
  Label1.Caption:=IntToStr(length(Werte));

end;

procedure TForm.SetLaenge(Wert:Array Of Integer;var Werte:TIntegerDynArray);
begin
  SetLength(Werte,10);
///
end;