habe ich nun auch versucht vom quicksort auf den Mergsort zu wechseln, da dieser stabiler ist und auch zur Sortierung von verketteten Listen geeignet.
http://de.wikipedia.org/wiki/MergeSort#Pascal
Allerdings scheint mein Programm da einen Fehler zu haben.
http://rapidshare.de/files/23793480/merges.zip.html (5 KB)
Fehler:
Im Projekt Mergesort.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: ''' ist kein gültiger Integerwert'. Prozeß wurde angehalten. Fortfahren mit Einzelschritt oder Start.
in form1.hilf[x] := StrToInt(form1.Stringgrid1.cells[x,0]); //dynamische Array
x ist in dem Falle Null bzw. = 0.
weil der Algo sich schon ein paar mal aufgerufen hat.
kann sich jemand erklären, ob warum das so ist?
bzw. hat auch jemand ne Idee, wie ich die Zeilen in den Records damit sortiert bekomme (wenn Mergesort funktioniert)
Also ich bin momentan ratlos.
ICQ: 204141443
Delphi 3 Professional, Intel 2x 2,4Ghz, 3 GB-Graka, Sound-onBrd, --
außerdem D2S, D3Pro, D4S, D5S, D6S, D7S +
Indy, Lazarus, VB5Std, VC++5Pro, Tasm4+5 - was braucht man mehr?
-