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 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:

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:

SetLength(DynArray, High(DynArray)+1) benutzen.

MfG

[Hallo_Thomas]

Jo, stimmt,Danke!

[SirThornberry]

Zitat von Pseudemys Nelsoni:

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

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
SetLength(DynArray, Length(DynArray)) bleibt die größe also wie sie war. Es muss wenn dann schon so lauten:
SetLength(DynArray, Length(DynArray) + 1)

[Basilikum]

Zitat von Pseudemys Nelsoni:

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

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:

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
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:

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