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;