Mega Code Archive

 

Categories / Delphi / OOP

 

[] Ismi verilen bir dizinin içindeki elemanın silinmesi

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;