Es gibt ja das öfteren mal Fälle bei denen der Typ eines Arrays für den eigentlichen Algorithmus unintressant ist, da er an der Programmlogik wenig oder nichts ändert, es muss sich lediglich intern die Adressierung der Offsets entsprechend der Typengröße ändern. Als Beispiel hierfür mal ein einfacher Insertion-Sort:
Delphi-Quellcode:
procedure InsertionSort(
var aArray:
array of Integer);
var
i, j: Integer;
HighIndex: Cardinal;
Wert: Integer;
begin
HighIndex:= High(aArray);
for i := 1
to HighIndex
do
begin
Wert:= aArray[i];
j:= i-1;
while((j >= 0)
and (aArray[j] > Wert))
do
begin
aArray[j+1]:= aArray[j];
Dec(j);
end;
aArray[j+1]:= Wert;
end;
end;
Dieser würde in dieser Form auch ohne weiteres mit 8-Bit und 16-Bit-Werten arbeiten.
Gibts es in Delphi eine Möglichkeit den Funktionskopf so zu verändern, dass zusätzlich auch solche Arrays an die Funktion übergeben werden können, ohne ihn für jeden Typ neu zu schreiben und entsprechend mit overload zu makieren?
Oder bleibt am Ende als einzige Möglichkeit einen Pointer und die Anzahl der Elemente sowie ihre Größe zu übergeben und daraus den Offset zu berechnen und aufzurechnen (was in Delphi mit einigem gecaste verbunden ist).