Länge eines 2 dim. Arrays ändern?

[toyohj60]

Hallo,

wie kann ich bei einem 2 dimensionalen Array die Größe ändern (Anzahl der Zeilen erhöhen)?
Das Array ist ursprünglich so angelegt:

Delphi-Quellcode:

            
.
.
var
  RGArray     : Array of Array of String; 

begin
.
.
Setlength(RGArray,1,23);
.
.
end;

tschüß, Steffen

[Matze]

Hallo Steffen,

ich denke, das funktioniert wie bei eindimensionalen Arrays: Einfach erneut Setlength mit der neuen Feldgröße aufrufen.

Grüße

[himitsu]

SetLength arbeitet nur mit jeweils einer Array-Ebene

Delphi-Quellcode:

// 2. Ebene setzen, z.B. für das 2. Feld der 1. Ebene
Setlength(RGArray[1], 23);

// Erste Ebene setzen
Setlength(RGArray,1);

// bei Array of Array of Array ... usw.
Setlength(RGArray[i][j], x);
Setlength(RGArray[i, j], x);

[Matze]

Zitat:

Zitat von himitsu

SetLength arbeitet nur mit jeweils einer Array-Ebene

Jain. Ich zitiere aus der OH:

Zitat:

Mehrdimensionale dynamische Arrays

Zur Deklaration von mehrdimensionalen dynamischen Arrays verwenden Sie aufeinander folgende array of ...-Konstruktionen. Zum Beispiel:

Delphi-Quellcode:

type TMessageGrid = array of array of string;
var Msgs: TMessageGrid;

Hier wird ein zweidimensionales String-Array deklariert. Um dieses Array zu instantiieren, rufen Sie SetLength mit zwei Integer-Argumenten auf. Wenn beispielsweise I und J Integer-Variablen sind, wird Speicherplatz für ein I mal J großes Array zugewiesen:

Delphi-Quellcode:

SetLength(Msgs,I,J);

Bei der Funktionsbeschreibung von System.SetLength steht allerdings nur ein Integer-Parameter. Vielleicht gibt's in einer anderen Unit eine überladene Funktion.

Edit: Delphi schlägt mir auch nur einen Integer-Parameter vor und verlinkt zur Unit "System". Ich verstehe es auch nicht, aber es geht auf jedenfall. *g*

[toyohj60]

Hallo,

ja, das mit setlength klappt soweit, nun muß ich aber noch feststellen,
wie groß "I" ist, um "I" um 1 erhöhen zu können.

Delphi-Quellcode:

SetLength(Msgs,I,J);

tschüß, Steffen

[Matze]

Das kannst du so machen:

Delphi-Quellcode:

SetLength(Msgs, High(Msgs) + 1, J);

[DeddyH]

Das müsste doch auch mit Length(msgs) zu erfragen sein, oder nicht?

[Dax]

Jup, denn High(X)+1 = Length(X) für dynamische Arrays.

[DeddyH]

Meine ich doch, dann ist Matzes Code sogar falsch, das müsste + 2 heißen ;)

[toyohj60]

Hallo,

danke mit Length(x) funktioniert das endlich!! Da schweigt die OH aber total, dass das mit High(x) nicht finktioniert

tschüß, Steffen

[Matze]

Zitat:

Zitat von DeddyH

Meine ich doch, dann ist Matzes Code sogar falsch, das müsste + 2 heißen ;)

Oh stimmt. Kleiner Denkfehler. :stupid:

[DeddyH]

Passiert :zwinker:

[himitsu]

ahh, ok, ich dacht schon das dort oben war der fehlerhafte Code :oops: und jupp, D7 hier zeigt im ToolTipp auch ur einen Parameter an.

Aber SetLength ist hier eh mehr Compiliermagig und wohl nicht so gut hilfemäßig ausgebaut
und in der D7-OH steht noch nichtmal was hier ._.

also zum Thema, entweder nochmals SetLength so wie vorher aufrufen und nur andere Dimensionen angeben,
oder die Dimensionen einzeln ändern

Delphi-Quellcode:

// alles
Setlength(RGArray, x, y);

// einzeln
Setlength(RGArray, x);

Setlength(RGArray[x], y);

Den Rest, wie man was von er aktuellen Größe auß hinzufügt wurde ja schon gesagt.


ich häng meistens so einen Eintrag an:

Delphi-Quellcode:

Var A: Array of irgendwas;

i := Length(A);
SetLength(A, i + 1);
A[i] := irgedwasneues;

oder auch 2...
i := Length(A);
SetLength(A, i + 2);
A[i] := irgedwasneues;
A[i + 1] := irgedwasneues;

PS:

Zitat:

Zitat von toyohj60

danke mit Length(x) funktioniert das endlich!! Da schweigt die OH aber total, dass das mit High(x) nicht finktioniert

wieso schweigt?
High = Length-1 und das sagt auch die OH

High ruft bei dynamischen Arrays intern Length auf und zieht 1 ab.


und wenn man die Länger um 1 erhöhen will, dann muß man auch Lenght nehmen und um 1 erhöhen, oder High um 2

Length + 1 = High + 2 = (Length-1) + 2