Mehrdimensionales Array variable auslegen

[EWeiss]

Wie kann ich das Array variabel auslegen?
ia: array [0..767, 0..100] of byte; Das ich die werte also zur laufzeit ändern kann.

gruss Emil

[mkinzler]

Als dynamischen Array:

ia: Array of Array of Byte; oder

Delphi-Quellcode:

Type
    ByteArray = Array of Byte;
...
   ia: array of ByteArray;

[EWeiss]

Zitat von mkinzler:

Als dynamischen Array:

ia: Array of Array of Byte; oder

Delphi-Quellcode:

Type
    ByteArray = Array of Byte;
...
   ia: array of ByteArray;

Wie wird dann die neue länge als beispiel bei 100 zugewiesen ?

sorry wenn die frage was dumm daher kommt.

Danke schön ..

gruss Emil

[mkinzler]

SetLength( ia, 100);

[himitsu]

Delphi-Quellcode:

ia = Array of Array of Byte;
// oder einfach nur
ia = Array of {Types.}TByteDynArray;

Delphi-Quellcode:

// ia: Array[0..767, 0..100] of Byte;

SetLength(ia, 768);
For i := 0 to High(ia) do 
  SetLength(ia[i], 101);

// oder

SetLength(ia, 768, 101);

[EWeiss]

Zitat von mkinzler:

SetLength( ia, 100);

Ja bei eindimensional oder ?
Das ist was ich nicht verstehe... in dem zusammenhang

Delphi-Quellcode:

var
  ia : array of byte

länge zuweisen..
Setlength(ia, 100); Habe hier aber 2 einträge ..
ia: array [0..767, 0..100] of byte; Muss ja in dem fall wissen welcher seite ich den neuen wert zuweise.

gruss Emil

[EWeiss]

Zitat von himitsu:

Delphi-Quellcode:

ia = Array of Array of Byte;
// oder einfach nur
ia = Array of {Types.}TByteDynArray;

Delphi-Quellcode:

// ia: Array[0..767, 0..100] of Byte;

SetLength(ia, 768);
For i := 0 to High(ia) do 
  SetLength(ia[i], 101);

// oder

SetLength(ia, 768, 101);

Ahh High wäre dann der zweite eintrag
Danke schön.

EDIT:
warum dann einen wert mehr ?
aus 767 wird 768 ?

gruss Emil

[mkinzler]

Nein Heigh ermittelt die obere Grenze des 1. Wertes

[himitsu]

[info] hab oben was editiert

vielleicht fällst es so besser auf, wenn man das trennt ... ergibt Beides das Selbe

Delphi-Quellcode:

ia: Array[0..767, 0..100] of Byte; 

ia: Array[0..767] of Array[0..100] of Byte;

und nu erkennt man auch, warum man es wie mit SetLength bearbeiten kann.

PS: hier kann man natürlich auch jedem Unterarray eine eigene Länge verpassen
(nicht alle Arrays der selben Ebene müssen gleich groß sein)

[add]

Zitat von EWeiss:

EDIT:
warum dann einen wert mehr ?
aus 767 wird 768 ?

weil 0 bis 767 nunmal 768 Felder sind?


[add2]
hier nochmal das Ganze mit 3 Ebenen ... dürfte do dann hoffentlich klarer werden lassen

Delphi-Quellcode:

ia: Array[0..99, 0..199, 0..299] of Byte;

ia: Array[0..99] of Array[0..199] of Array[0..299] of Byte;

ia: Array of Array of Array of Byte;

SetLength(ia, 100, 200, 300);

SetLength(ia, 100);
For i1 := 0 to High(ia) do Begin  { 0 to Length(ia) - 1 }
  SetLength(ia[i1], 200);
  For i2 := 0 to High(ia[i1]) do  { 0 to Length(ia[i1]) - 1 }
    SetLength(ia[i1, i2], 300);  // SetLength(ia[i1][i2], 300);
End;

[EWeiss]

Hab es jetzt so gemacht..

Delphi-Quellcode:

var
ia : Array of Array of byte;

Delphi-Quellcode:

nHeight:= PicBB.Height;
nImageSize:= (256*nHeight)*3;
SetLength(ia, 768, nHeight + 1);

jetzt springt er in System.pas rein und meldet
function LoadResString(ResStringRec: PResStringRec): string; Zugriffsverletzng .. schreiben von Adresse.

Übergebe ich das Array normal
ia: array [0..767, 0..100] of byte; dann funktioniert es.

gruss Emil