Dynam. Array vergrössern?

[Hallo_Thomas]

Hallo,

ich Versuch mich gerad ein bisschen damit Dynam. Arrays zu vergrössern, aber Irgendwie wills nich.
Die ersten fünf Werte macht die Procedur noch mit, dann wills nich mehr:
"Exception der Klasse EAcessViolation mit der Meldung'Zugriffsverletzung......'"



Wird wohl irgendwie hierdran liegen:

Delphi-Quellcode:

public
  MyListe                 :Array of Byte;

procedure TForm1.AllSpeedButtons(Sender: TObject);
var
  itag        : Integer;
begin
  itag := (Sender as TSpeedbutton).Tag;
  ArrayInsert(itag);
  Label8.Caption:=IntToStr(MyListe[0]);
end;


procedure TForm1.ArrayInsert(Item:Integer);
var i:Integer;
begin
  //setlength(MyListe, 0);
  //Initialize(MyListe);
  setlength(MyListe, length(MyListe) + 1);
  for i:=0 to length(MyListe)do MyListe[i +1] := MyListe[i];
  MyListe[0]:=Item;
  //Finalize(Myliste
end;

[BenjaminH]

Hallo
1. Der Zugriffsbereich des Arrays geht immer von [0..Length-1]
2. Durch das [length+1] greifst du sogar 2 zu weit zu, da stimmt was nicht..

Grüße Benjamin

[Luckie]

Code:

for i:=0 to length(MyListe) [b]- 1[/b] do

[JasonDX]

Zitat:

Zitat von Luckie

Code:

for i:=0 to length(MyListe) [b]- 1[/b] do

- 2 ;)
schließlich greift er auch noch auf [i + 1] zu ;)

greetz
Mike

[Pseudemys Nelsoni]

Wenn du ein DynArray um 1 erhöhen möchtest, brauchst Du nur:

Delphi-Quellcode:

SetLength(DynArray, Length(DynArray))

zu schreiben. Das ergibt sich daraus, da die Länge immer 1 grösser ist, als der Index des letzten Elements.

Alternativ kannst Du auch:

Delphi-Quellcode:

SetLength(DynArray, High(DynArray)+1)

benutzen.

MfG

[Hallo_Thomas]

Jo, stimmt,Danke! :wall: :wall: :wall:

[SirThornberry]

Zitat:

Zitat von Pseudemys Nelsoni

Wenn du ein DynArray um 1 erhöhen möchtest, brauchst Du nur:

Delphi-Quellcode:

SetLength(DynArray, Length(DynArray))

zu schreiben. Das ergibt sich daraus, da die Länge immer 1 grösser ist, als der Index des letzten Elements.

Das stimmt so nicht. Length fragt die anzahl der möglichen Elemente ab. "Length(DynArray" gibt also 1 zurück wenn 1 Elemente rein passen. Und mit SetLength gibt man ebenfalls an wieviel Elemente in das Array rein passen sollen. mit

Delphi-Quellcode:

SetLength(DynArray, Length(DynArray))

bleibt die größe also wie sie war. Es muss wenn dann schon so lauten:

Delphi-Quellcode:

SetLength(DynArray, Length(DynArray) + 1)

[Basilikum]

Zitat:

Zitat von Pseudemys Nelsoni

Wenn du ein DynArray um 1 erhöhen möchtest, brauchst Du nur:

Delphi-Quellcode:

SetLength(DynArray, Length(DynArray))

zu schreiben. Das ergibt sich daraus, da die Länge immer 1 grösser ist, als der Index des letzten Elements.

Alternativ kannst Du auch:

Delphi-Quellcode:

SetLength(DynArray, High(DynArray)+1)

benutzen.

MfG

hast du dies getestet ? stimmt beides nicht... das Array bleibt genau so lang wie es war...

[Pseudemys Nelsoni]

Stimmt, sorry...ich komm mit dem ganzen Kram schon durchnander *g*

[Hawkeye219]

...und noch eine kleine Korrektur:

Die Kopierschleife

Delphi-Quellcode:

for i:=0 to length(MyListe)do MyListe[i +1] := MyListe[i];

kopiert in der vorliegenden Form nur das erste Element in die nachfolgenden Arrayelemente.
Beim Schieben nach rechts muß man DOWNTO benutzen:

Delphi-Quellcode:

FOR i := High(MyListe) DOWNTO 1 DO MyListe[i] := MyListe[i - 1];

Gruß Hawkeye