Das funktioniert leider nicht, da gibt's den Fehler "Ungültige Zeigeroperation". Wenn ich z.B. ein array of extended als TByteArr caste und dann in dieser Prozedur mit SetLength die Größe ändere, wird außerdem alles genullt, was hinter der Grenze zur ursprünglichen Länge liegt. Schwer zu erklären, daher ein Beispiel:
Delphi-Quellcode:
type TByteArr = array of byte;
procedure ArrDelete(var P : TByteArr; Size, ElSize, Idx : integer);
begin
// ...
SetLength(P, Length(P)-1); // So werden nur 19 statt der für extended-arr nötigen 190 Bytes reserviert
SetLength(P, (length(P)-1) * ElSize); // So werden zwar 190 Bytes reserviert, allerdings ist Length(P) dann zu groß
// außerdem wird alles nach Byte Nr. 20 gelöscht
end;
procedure test;
var a : array of extended;
begin
SetLength(a, 20);
ArrDelete(TByteArr(a), Length(a), SizeOf(a[0]), 2);
// dann "Ungültige Zeigeroperation
// ...
end;
Hast du das schonmal ausprobiert, was du sagst? Wenn ja, könntest du bitte ein compilier- und lauffähiges Stück Code posten?