Ich hab den Code genommen, das Free musste ich raus nehmen
Delphi-Quellcode:
procedure TForm1.ArrayDelete(MyArray:TByteDynArray;Index: Integer);
var
i : Integer;
begin
//MyArray[Index].Free;
for i := Index to length(MyArray) - 2 do MyArray[i] := MyArray[i + 1];
setlength(MyArray, length(MyArray) - 1);
end;
Mit Free Fehlermeldung: Record, Objekt oder Klassentyp erforderlich