function mit Array - trotz gleichen Typs "Inkompatible Typen"

[Shakyamuni]

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;

[mkinzler]

Wo in der Funktion RemoveItem tritt der Fehler auf?
Übergebe besser Low(<array>) statt 0

[Shakyamuni]

Das ist es ja - in RemoveItem tritt gar kein Fehler auf sondern in der Merge-Routine, wo RemoveItem auftreten soll. Das mit Low() versuche ich mal.

Danke schonmal^^

[mkinzler]

Hier würde sich vielleicht auch eine Liste statt einem Array anbieten

[Shakyamuni]

Listen wollte ich ursprünglich auch nutzen, allerdings kommen diese nur mit Pointern aus - zumindest weiß ich nicht, wie ich das Objekt Liste mit Integern verwenden soll. Bei Suchen im Internet und zB auf delphi-treff.de und ähnlichen gab es immer nur die Variante, eine Liste als Pointer-Liste zu verwenden (Vielleicht habe ich auch irgendwas übersehen - lasse mich gerne belehren^^).

[mkinzler]

http://lists.elists.org/pipermail/de...er/019611.html
http://cc.embarcadero.com/Item/22319

[Shakyamuni]

So, nach ein paar Schritt-für-Schritt-Durchläufen sind mir ein paar kleine Fehler aufgefallen (der gravierendste war in der DeleteItem-Funktion) und nun funktioniert der MergeSort wie geschmiert. Die Probleme lagen größtenteils bei den Grenzen, die ich gesetzt hatte. Da ist der Algorithmus dann etwas aus den Fugen geraten.

Vielen Dank für die Hilfe!