| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.1.11 BubbleSortList
Function BubbleSortList(ByVal SortList(),optional sort2ndValue as Boolean) Sortiert ein maximal 2 dimensionales Array. Die Funktion hat einen Fehler. Die Schleife geht bis in das letzte Element und erzeugt dabei automatisch ein neues Element. Um dies zu verhindern muß man die beiden Schleifen innerhalb der Select-Anweisung um eine Bedingung ergänzen. Select Case dimensions Case 1 if t<>(i-1) then If SortList(t) > SortList(t+1) Then DisplayDummy = SortList(t) SortList(t) = SortList(t+1) SortList(t+1) = DisplayDummy End If end if Case 2 If t<>(i-1) then If SortList(t,sortvalue) > SortList(t+1,sortvalue) Then For k = 0 to UBound(SortList(),2) DisplayDummy = SortList(t,k) SortList(t,k) = SortList(t+1,k) SortList(t+1,k) = DisplayDummy Next k End If End if End Select Den neuen Code der Funktion muß man dann in sein eigenes Modul einsetzen, da die mitgelieferten Module schreibgeschützt sind. Der Fehler ist in neueren Versionen inzwischen behoben. |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009