Dynamisches Array funktioniert nicht - Zugriffsverletzung

[Nonsense]

Hallo,
ich habe folgendes Array:

Delphi-Quellcode:

Field : array of array of TFieldType;
// TFieldType ist ein record

welches ich folgender Maßen füllen möchte:

Delphi-Quellcode:

  // [...]
  SetLength(Field, X - 1, Y - 1);
  // [...]
  for i := 0 to X - 1 do
  begin
    for j := 0 to Y - 1 do
    begin
      Field[j, i].Var := 1;
    end;
  end;

Der Compiler zeigt mir _keine_ Fehler an.
Nach dem Starten, bekomme ich aber eine Zugriffsverletzung. (Compiler springt auf "Field[j, i].Var := 1;").

Wenn ich jetzt aber z.B.:

Delphi-Quellcode:

Field : array[0..29, 0..29] of TFieldType;

schreibe, geht es.
Wie kann ich nun ein dynamisches, 2-dimensionales Array nutzen?


Danke im Voraus!
:)

[Christian S.]

Hallo!

Wenn Du SetLength(myArray, laenge) machst, dann ist der höchste Index, auf den Du noch zugreifen kannst laenge-1. Liegt daran, dass man bei Null anfängt, zu zählen.

Mfg
Peter

[Niels]

Bei SetLength musst du schon die wirkliche Länge angeben:

Delphi-Quellcode:

SetLength(Field, X, Y);

Das würde das selbe wie array[0..x-1,0..y-1] bedeuten.

Außerdem gibts bei dir ne Zugriffsverletzung wenn x <> y, wegen der Zuweißung

Delphi-Quellcode:

Feld[j,i] := 1;

Du musst entweder

Delphi-Quellcode:

Feld[i,j] := 1;

schreiben

oder du musst die Schleifen abändern in

Delphi-Quellcode:

for i := 0 to Y - 1 do
  begin
    for j := 0 to X - 1 do
    begin
      Field[j, i].Var := 1;
    end;
  end;

Du hast natürlich auch noch die Möglichkeit:

Delphi-Quellcode:

SetLength(Field, Y, X);

MfG Niels

[Nonsense]

Danke für eure Mühe, aber es hatte nichts geholfen. :cry:

Zu X und Y:
Beides sind Werte von 1 bis ...
Deshalb das "X - 1", bzw "Y - 1", da dass Array ja bei 0 anfängt zu zählen.

[CalganX]

Hi,
hast du die erste Antwort von Peter nicht gelesen? :shock:

Wenn, dann musst du schreiben

Delphi-Quellcode:

for i:=0 to Y-2 do

Das gleiche für j. Sonst greifst du auf eine Stelle im Speicher zu, die gar nicht zum Array gehört. Dann KANN es nur zu einer AV kommen.

Chris

[Nonsense]

@Chakotay1308: Das kann aber nicht hinhauen.
Die letzten Einträge bleiben dann leer (wegen "X - 2" und "Y - 2), soll heißen, ich bekomme eine Zugriffverletzung, da die Werte im Array nicht belegt sind.

[Nonsense]

Ich habs...*GD&R*...
Es lag am SetLength, richtig ist jetzt:

Delphi-Quellcode:

  SetLength(Field, X, Y);

[...]

  for i := 0 to Y - 1 do
  begin
    for j := 0 to X - 1 do
    begin
      Field[j, i].Var := 1;
    end;
  end;

Danke @all!

[CalganX]

Hi,
das hat doch "Niels" gemeint. ;)

Chris

[Nonsense]

Ja, mein Hirn läuft noch mechanisch, da dauert das ein wenig, bis die Logik sich ausbreiten kann... :stupid: