Länge zwei dimensionaler, dynamischer Arrays bestimmen ?

[Andy386]

Hallo,
ich habe ein dynamisches Array gemacht:

Delphi-Quellcode:

dynMatrix = array of array of double;
....
SetLength(dynmat^, xdim, ydim);

und würde in einer anderen Funktion, ohne die Parameter übergeben zu müssen oder in dem Array zu speichern, xdim und ydim herausbekommen.

Length(dynmat^) liefert nur einen double-wert zurück...

[mkinzler]

Spalte auf

Delphi-Quellcode:

TZeile = array of double;
TDynMatrix = array of TZeile;

[Andy386]

Ach so !

[marabu]

Hallo,

erst die Zeilen, dann die Spalten indizieren - und keine Dereferenzierung:

Delphi-Quellcode:

type
  TDoubleMatrix = array of array of Double;
var
  mat: TDoubleMatrix;
  xDim, yDim: Integer;
begin
  SetLength(mat, 42, 17);
  yDim := Length(mat);
  xDim := Length(mat[Low(mat)]);
end;

Freundliche Grüße

[Andy386]

Das ist natürlich noch schöner !
Vielen Dank !

Die Dereferenzierung muss aber scheinbar schon sein, ich habe das oben vergessen zu schreiben, ich habe für die Funktionen nur Pointer zu den Arrays übergeben.
Sorry wegen eventueller Missverständnisse

[marabu]

Statt eines Pointers könntest du die Matrix auch als var-Parameter übergeben.
Das wäre dann Call-By-Reference nach Pascal Art.

Delphi-Quellcode:

procedure MatrixMultiply(var mat: TDoubleMatrix; scalar: Double);
var
  yDim, xDim: Integer;
begin
  for yDim := Low(mat) to High(mat) do
    for xDim := Low(mat[yDim]) to High(mat[yDim]) do
      mat[yDim, xDim] := mat[yDim, xDim] * scalar;
end;


procedure Test;
var
  yDim, xDim: Integer;
  mat: TDoubleMatrix;
begin
  SetLength(mat, 3, 3);
  for yDim := Low(mat) to High(mat) do
    for xDim := Low(mat[yDim]) to High(mat[yDim]) do
      mat[yDim, xDim] := 1;
  MatrixMultiply(mat, 2);
  ShowMessage(FloatToStr(mat[0, 0]));  
  SetLength(mat, 0, 0);
end;

Getippt und nicht getestet.

[Andy386]

Aber das ist dann intern dasselbe, oder wird die ganze Matrix dabei kopiert?

[Dax]

Arrays mit statischen Grenzen (array [n..m{, x..y}]) sind Datenblöcke - bei einem "var" oder "const"-Parameter werden Referenzen übergeben, ansonsten wird kopiert.
Dynamische Arrays sind aber an sich schon Referenzen, der Geschwindigkeitsvorteil gegenüber den statischen Arrays ist also bei CallByRef nicht gegeben - dafür kann man aber *sicher* das übergebene Array bearbeiten (var) ohne es zu kopieren, oder man *darf* es nicht bearbeiten (const).