Mega Code Archive

 

Categories / Delphi / Examples

 

Remove-delete a given element from an array list

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. *)