Forum: Object-Pascal / Delphi-Language
by Shakyamuni,
12. Mär 2011
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!
Forum: Object-Pascal / Delphi-Language
by Shakyamuni,
12. Mär 2011
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^^).
Forum: Object-Pascal / Delphi-Language
by Shakyamuni,
12. Mär 2011
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^^
Forum: Object-Pascal / Delphi-Language
by Shakyamuni,
12. Mär 2011
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...
Forum: Object-Pascal / Delphi-Language
by Shakyamuni,
10. Mär 2011
Ah, dann liegt der Fehler schonmal klar auf der Hand, ist klar, warum das nicht so will.
Ok, den werde ich gleich mal implementieren statt meinem eigenen Gedudel. Und das mit der Fehlerstelle tut mir leid - Ich habe selbst schon lange nicht mehr in Foren ums Programmieren geschrieben, weil mir dafür einfach die Zeit fehlt. Ebenso wie für das Programmieren (leider).
Wurde sofort geändert...
Forum: Object-Pascal / Delphi-Language
by Shakyamuni,
10. Mär 2011
Hallo alle zusammen!
Nach ganz langer Zeit habe ich mich dazu entschieden, wieder mal etwas in Delphi zu schreiben und hab als Fingerübung mit einem rekursiven Mergesort angefangen. Nun will allerdings Delphi nicht so wie ich. Zum Testen habe ich ein kleines Beispiel gemacht um zu überprüfen, ob das in dem speziellen Fall so ist oder ob ich das generell falsch implementiere. Der Output ist...