procedure DeleteArrayEntry(Item: Integer; Array1: TArray);
var
I: Integer;
begin
if (Length(Array1) > 1) and (Item <> Length(Array1) - 1) then
for I := Item to Length(Array1) - 2 do Array1[I] := Array1[I + 1];
SetLength(Array1, Length(Array1) - 1);
end;
(* Anwendung:
1. Zuerst brauchen wir mal einen Array:
Var TestArray:Array of Integer;
2. Jetzt muss noch der Datentyp der Procedure umgeschrieben werden:
Procedure DeleteArrayEntry(Item:Integer;Array1:Array Of Integer);
Fertig!
Mit "DeleteArrayEntry(3,TestArray);" kann nun der dritte Eintrag gelöscht werden.
*)
|
