Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Länge eines 2 dim. Arrays ändern? (https://www.delphipraxis.net/106902-laenge-eines-2-dim-arrays-aendern.html)

Matze 18. Jan 2008 13:38

Re: Länge eines 2 dim. Arrays ändern?
 
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 18. Jan 2008 13:45

Re: Länge eines 2 dim. Arrays ändern?
 
Passiert :zwinker:

himitsu 18. Jan 2008 13:48

Re: Länge eines 2 dim. Arrays ändern?
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:07 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz