Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi 4 dimensionalen Array sortieren (https://www.delphipraxis.net/71735-4-dimensionalen-array-sortieren.html)

r2c2 21. Jun 2006 09:28

Re: 4 dimensionalen Array sortieren
 
Zitat:

Zitat von negaH
ich meinte sehr wohl Stabilität ;) und bezog mich damit auf deine Aussage. Bei Quicksort ist es enorm wichtig das die Comparefunction (Vergleichoperation) immer eine eindeutige Sortierung erzeugt. Ist dies nicht der Fall so wird zb. die QuickSort Implementierung in der VCL (TList zb.) in einer Endloss-Schleife verenden.
Die eindeutige Vergleichoperation bezieht sich aber nur darauf das zb. nicht A > B und A <= B gleichzeitig gelten darf, oder zb. A > B und B > C und C > A.
QuickSort ist, je nach Implementierung, im Gegensatz zu anderen Verfahren, ziemlich anfällig für solche Kontradiktions in der Comparefunction, eben in-stabil !

Danm hab ich dich entweder falsch verstanden oder ne andere Vorstellung von dem Begriff "Stabilität".
*nochmal in die Wikipedia guckt* http://de.wikipedia.org/wiki/Stabiles_Sortierverfahren
Jo, genau so, wie ichs im Kopf hatte:
Die Reihenfolge gleichwertiger Elemente wird nicht verändert. Das ist bei QuickSort aber nicht der Fall(im Normalfall jedenfalls). [wie gesagt, ich hatte die Frage falsch verstenden/nicht aufnmerksam genug gelesen]

Du bezieht Stabilität aber auf das Funktionieren des Algorithmus. Ohne eindeutige Vergleichsoperation ist (vergtleichsbasiertes) Sortieren IMHO unmöglich ==> Fehler bei der Implementierung der Compare-Funktion. QuickSort als Algo funktioniert aber trotzdem.

Oder hab ich dich falsch verstanden? :gruebel:

mfg

Christian

negaH 21. Jun 2006 10:03

Re: 4 dimensionalen Array sortieren
 
Nöö, ist absolut korrekt so ;)
Ich erwähnte dies nur weil ich denke das viele Programmierer so arbeiten wie ich.
Sie öffnen Classes.pas, kopieren sich die QuickSort Sourcen von TList, ändern sie an ihre Bedürfnisse, bauen ihre Compare Callbacks und wenn diese nicht saubere/stabile Vergleichsoperationen durchführt, wundern sie sich dann das ihr QuickSort eine Endloss-Sortierung durchführt. Sprich: ich wollte ein bischen meiner Erfahrungen mitgeben ;)

Gruß Hagen

Coder 22. Jun 2006 16:24

Re: 4 dimensionalen Array sortieren
 
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:
Delphi-Quellcode:
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.

r2c2 22. Jun 2006 19:04

Re: 4 dimensionalen Array sortieren
 
Zitat:

Zitat von Coder
kann sich jemand erklären, ob warum das so ist?

Lies doch einfach die Fehlermeldung. An der ensprechenden Sstelle im StringGrid steht keine Zahl...

mfg

Christian

Coder 22. Jun 2006 19:15

Re: 4 dimensionalen Array sortieren
 
ok, gedacht hab ich mir das auch ...
aber wie kann das sein?

ich mein.... der algo ist doch so übernommen.
und es gibt doch maximal 10 Einträge.
wie kommt man dann auf Null?

Was kann ich denn abändern, damit das Ding durchläuft?

r2c2 22. Jun 2006 21:30

Re: 4 dimensionalen Array sortieren
 
Sorry, hab momentan meine Glasgugel verlegt. Mir fehlen n paar Infos:
- dein genauer Code
- der Inhalt deines StringGrids
- ...

Ach und noch ne Frage:
Hast du schon mal den Debugger bemüht? Was sagt der denn?

mfg

Christian

Coder 22. Jun 2006 22:11

Re: 4 dimensionalen Array sortieren
 
Code:
Sorry, hab momentan meine Glasgugel verlegt. Mir fehlen n paar Infos:
- dein genauer Code
http://rapidshare.de/files/23793480/merges.zip.html
(hatte das schon umseitig gepostet)
Code:
- der Inhalt deines StringGrids
- ...
wie meinste das?
Das is anfangs leer.
Code:
Ach und noch ne Frage:
Hast du schon mal den Debugger bemüht? Was sagt der denn?
ja, aber nix ungwöhnliches Entdeckt
also bin auch teilw mit F7 durchgesteppt.

r2c2 23. Jun 2006 20:35

Re: 4 dimensionalen Array sortieren
 
Zitat:

Zitat von Coder
Code:
Sorry, hab momentan meine Glasgugel verlegt. Mir fehlen n paar Infos:
- dein genauer Code
http://rapidshare.de/files/23793480/merges.zip.html
(hatte das schon umseitig gepostet)

Wens nicht so viel ist, kannst du sowas auch in den Beitrag schreiben. Die andere - komfortablere Möglichkeit als irgendwelche Freehoster - ist die Datei einfach an den Post anzuhängen...

Zitat:

Code:
- der Inhalt deines StringGrids
- ...
wie meinste das?
Das is anfangs leer.
Und ganau das ist das Problem. Was willst du sortieren, wenn du nix hast?

Zitat:

Code:
Ach und noch ne Frage:
Hast du schon mal den Debugger bemüht? Was sagt der denn?
ja, aber nix ungwöhnliches Entdeckt
also bin auch teilw mit F7 durchgesteppt.
Beim durchsteppen(und auch schon beim Angucken vom Code) müsste dir aufgefallen sein, dass du versuchst auf ne leere Zelle zuzugreifen. Und genau dabei krachts. Was für ne Zahl is bitte n Leerstring? Genau das versucht dir die Exception mitzuteilen...

mfg

Cheristian


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:06 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz