Dynamische Array

[juelin]

Hallo Delphianer,
ich benutze Windows 10 und Delphi 10.4.
Habe bei mehrdimensionalen dynamischen Array Problem mit der Zuweisung der Anzahl Einträge.

type T3DArray = array of array of array of Double;
var w_input: T3DArry;
1. Aufruf -> setlength(w_input, 1, 4, 3); -> OK
2. Aufruf -> setlength(w_input, 1, 4, 3); -> OK
3. Aufruf -> setlength(w_input, 1, 40, 3); -> OK
4. Aufruf -> setlength(w_input, 1, 40, 3); -> Fehler

Fehlermeldung:
Im Projekt KNN.exe ist eine Exection der Klasse $C0000005 mit der Meldung 'access violation at 0x00405fd2: read of address 0x20d404bd'
aufgetreten.

Hat jemand eine Idee was das ist und was man tun kann?

Gruß
Jürgen

[KodeZwerg]

Code:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  T3dArr = array of array of array of double;
var
  arr: T3dArr;
begin
  try
    SetLength(arr, 1, 4, 3);
    SetLength(arr, 1, 4, 3);
    SetLength(arr, 1, 40, 3);
    SetLength(arr, 1, 40, 3);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.

Läuft ohne Probleme durch.

[Andreas13]

Hallo Jürgen,

Du hast Dich vertippt, hier: var w_input: T3DArry; .
Es sollte korrekt heißen: T3DArray;

Dann funktioniert es einwandfrei.

Grüße, Andreas

[Uwe Raabe]

Ich vermute der Fehler liegt irgendwo im nicht gezeigten Teil des Codes.