Weitergabe von mehrfach Array, wie?

[Uwe Raabe]

Geht zwar nicht mit Delphi 5 aber mit aktuelleren Versionen so:

Delphi-Quellcode:

PROCEDURE B(var PV: TArray<TArray<Extended>>);
var
  I, J: INTEGER;
Begin
  For I := Low(PV) to High(PV) do
  begin
    For J := Low(PV[I]) to High(PV[I]) do
      PV[J, I] := 0.0;
  end;
End;

PROCEDURE A;
var
  PV: TArray<TArray<Extended>>;
Begin
  SetLength(PV, 3, 2);
  B(PV);
End;