Hallo
Warum so kompliziert?
Delphi-Quellcode:
procedure delete_arr_item(var arr : tbyte_arr; idx : integer); overload;
var x : integer;
begin
for x := idx + 1 to high(arr) do
arr[x-1] := arr[x];
SetLength(arr, length(arr) - 1)
end;
Ist vll nicht die schnellste, aber sicher eine der kürzesten Varianten.
[Edit]Allerdings lässt sie alle Elemente "in Ruhe", die eh nicht verändert werden (d.h. die mit einem Index < als idx)[/Edit]
Gruß
Michael