Sorry für den Doppelpost, allerdings kann ich den obigen nicht mehr editieren.
Also, nun sind die Typen alle gleich (Ich verwende jetzt den IntegerDynArray) und das dividen der Listen funktioniert super. Nun geht es allerdings auf den essentiellen Teil des Mergens zu und da meckert er schon wieder. An den zwei markierten Stellen im Code gibt er mir einen ERangeError, bzw. einen Fehler bei der Bereichsüberprüfung, aus.
Da an den markiertenn Stellen aber nur eine procedure aufgerufen wird, die ein Element löscht, indem es die anderen Elemente über der Liste herunterzieht und die Listenlänge um eins verkleinert, verstehe ich den Fehler nicht so ganz. Bei der Procedure habe ich die Bereiche schon mehrmals überprüft.
Was ich auch überlegt hatte wäre, ob die Listen dann vielleicht schon leer sind und er dennoch ein Element entfernen will - aber das kann ich wegen der while-Schleife drumherum ausschließen.
Ich hoffe, hier könnt mir nochmal helfen^^
Delphi-Quellcode:
function Tsortalgo.Merge(llst, rlst: TIntegerDynArray): TIntegerDynArray;
var
n: integer;
lst: TIntegerDynArray;
begin
SetLength(lst,High(llst)+High(rlst));
n := 0;
while (High(llst)>=0) and (High(rlst)>=0) do
begin
if llst[0] <= rlst[0]
then
begin
lst[n] := llst[0];
n := n+1;
llst := RemoveItem(llst, 0); <--- Fehler
end
else
begin
lst[n] := rlst[0];
n := n+1;
rlst := RemoveItem(rlst, 0); <--- Fehler
end;
end;
while High(llst)>0 do
begin
lst[n] := llst[0];
n := n+1;
llst := RemoveItem(llst, 0);
end;
while High(rlst)>0 do
begin
lst[n] := rlst[0];
n := n+1;
rlst := RemoveItem(rlst, 0);
end;
result := lst;
end;
function Tsortalgo.RemoveItem(lst: TIntegerDynArray; n: integer): TIntegerDynArray;
var
i: integer;
begin
for i := n to High(lst)-1 do
begin
lst[i] := lst[i+1];
end;
SetLength(lst, High(lst)-1);
result := lst;
end;