Zitat von
aM0xACiLLiN:
Hi,
wie der Titel schon sagt würde ich gerne, da ich viele Arrays habe und diese alle mit einer Prozedur sortieren möchte (wenn ich aus der Mitte einen Eintrag herausnehme soll der letzte an diese Stelle rücken, die Länge angeglichen werden und somit Speicher gespart werden), ein dynamisches Array ohne Typ übergeben.
Bei Arrays geht das so:
Delphi-Quellcode:
var myArr: array of Integer;
...
procedure Loeschen(ArrIndex: Cardinal; var arr: array of Integer);
begin
arr[ArrIndex]:= arr[High(arr)];//Element mit Nr. ArrIndex durch letztes Elem. ersetzen
SetLength(arr, High(arr));//array um eins kürzen -->löscht letztes Element
end;
...
//Beispielaufruf:
Loeschen(3, myArr);//Löscht 4. Element aus myArr (Zählung begint bei 0)
Das gleiche Prinzip müsste auch bein dyn. Arrays ohne Typ gehen.
MfG
Binärbaum