Bei delphisource gefunden
Zitat:
Soll ein Array-Element gelöscht werden, ohne dass an dieser Stelle eine Lücke verbleibt, müssen alle folgenden Elemente um eins nach vorne kopiert werden. Bei einem dnyamischen Array kann dann das letzte Element abgeschnitten werden; ansonsten wird sein Wert in einen Standardzustand versetzt.
Delphi-Quellcode:
type TIntArray: array of integer;
function DeleteArrayElement(var arr: TIntArray; const index: integer);
var i: integer;
begin
if index<high(arr) then begin
for i:=index to high(arr)-1 do
// eins nach vorne kopieren
arr[i]:=arr[i+1];
end;
// Länge kürzen (bei dyn. Arrays)
SetLength(arr, length(arr)-1);
end;
viel spass
