![]() |
2 dimensionales Array sortieren die X'te...
Guten Abend,
ich hab nen Knoten im Hirn. Ich will einfach nur ein 2Dimensionales Array nach der 2. Dimension sortieren. Beim Googlen fand ich viel dazu... aber leider nichts was ich verstehe. Das meiste war entweder für Strings gedacht oder sah mir zu aufwändig aus, für die kleine Sache. Mein Array ist dynamisch und recht einfach:
Delphi-Quellcode:
es werden 2 Felder benutzt und mit Zahlen gefüllt:
meinArray : Array of Array of Integer;
Delphi-Quellcode:
Klappt bis hierhin wie es soll. Array wird gefüllt, kann ausgelesen werden... aber wie ich es nach dem zweiten Feld sortiere verstehe ich nicht.
meinArray[z][1] := StrToInt(beispielzahl1);
meinArray[z][2] := StrToInt(beispielzahl2); Mit BubbleSort soll das einfach sein, las ich. Aber ich weiß nicht wie ich das auf meinen Fall anwende... Gruß, Andreas |
AW: 2 dimensionales Array sortieren die X'te...
Sortieren benötigt immer 2 Grundoperationen: Vergleichen (Compare) und Vertauschen (Swap)
Versuche 2 Funktionen zu schreiben:
Delphi-Quellcode:
Damit kannst du nun beliebige Sortierverfahren ansetzen, die CompareXXXX() oder SwapXXXX() benützen.
function CompareMyArray(a,b:integer):integer;
const VERGLEICHINDEX = 0; begin if meinArray[VERGLEICHINDEX][a] > meinArray[VERGLEICHINDEX][b] then result := 1 else if meinArray[VERGLEICHINDEX][a] > meinArray[VERGLEICHINDEX][b] then result := -1 else result := 0; // Hinweis: mit Sign() geht es einfacher und eleganter end; procedure SwapMyArray(a,b:integer); var i : integer; begin for i := 0 to obergrenze do SwapInteger(meinArray[i][a], meinArray[i][b]); end; |
AW: 2 dimensionales Array sortieren die X'te...
Danke, das hilft schonmal die Logik ein wenig besser zu verstehen.
Allerdings hab ich das Array nicht global definiert. Es ist nur in einer kleiner Funktion existent, weil es nichts großes macht. Kann ich das Array irgendwie an die beiden Funktionen übergeben? |
AW: 2 dimensionales Array sortieren die X'te...
Wenn du dem Array ein Typ gibst kannst du es auch durchreichen:
Delphi-Quellcode:
Noch besser wäre es, wenn du das Array sammt Compare-, Swap- und Sortierfunktion in einer Klasse verpacken würdest.
Type
Tmein2DArray = Array of Array of Integer; // und später meinArray : Tmein2DArray; function CompareMyArray(X:Tmein2DArray;a,b:integer):integer; const VERGLEICHINDEX = 0; begin if X[VERGLEICHINDEX][a] > X[VERGLEICHINDEX][b] then result := 1 else if X[VERGLEICHINDEX][a] > X[VERGLEICHINDEX][b] then result := -1 else result := 0; // Hinweis: mit Sign() geht es einfacher und eleganter end; |
AW: 2 dimensionales Array sortieren die X'te...
Man, das klingt irgendwie aufwändiger als ich es von PHP kenne *g*.
Danke Dir, ich werde morgen weiter versuchen das hinzubekommen. Ich hätte nicht gedacht das es so ein Aufwand ist "mal eben" ein Array zu sortieren. |
AW: 2 dimensionales Array sortieren die X'te...
sx, das geht aber so einfacher:
Delphi-Quellcode:
type
TIntArray = Array of Integer; TInt2DArray = Array of TIntArray; var meinArray : TInt2DArray; i := <irgendEinIndex>; IrgendEineSortFunktionDieEinIntArrayAnnimmt(meinArray[i]); Zitat:
|
AW: 2 dimensionales Array sortieren die X'te...
Und streng genommen sind Arrays auch schon hart an ihrer Sinnhaftigkeitsgrenze wenn sortiert werden soll ;)
Da würde sich eher eine Liste anbieten, und statt der 2 Dimensionen ein Klässlein mit diesen als Feldern, so dass man mit einer schlanken Compare-Funktion schon in einer Hand voll Zeilen mehr am Ziel wäre. Zumal man den Sortieralgo nicht noch selber machen muss. |
AW: 2 dimensionales Array sortieren die X'te...
Zitat:
Meine Daten einfach in eine ListBox oder StringGrid packen und dort sortieren lasse. Das ganze nicht visible. Ist keine elegante Lösung, fühlt sich aber einfacher an *g*. |
AW: 2 dimensionales Array sortieren die X'te...
unsichtbare ListBox = TStringList :roll:
|
AW: 2 dimensionales Array sortieren die X'te...
Zitat:
Wofür gibts dann überhaupt Arrays? |
AW: 2 dimensionales Array sortieren die X'te...
Hatte eine ListBox nicht nur eine Spalte und die ListView mehrere?
Aber bei einer Spalte und zusammen mit dem Data-Property (aka Objects der TStringList) kommt man auch auf mehrere Daten pro Zeile. |
AW: 2 dimensionales Array sortieren die X'te...
Ich hab grad leider kein Delphi zur Hand. Aber ich meine ich habe schonmal ne ListBox mit mehreren Spalten gefüllt. Hab grad aber nicht im Kopf ob das die Standardkomponente war oder von TMS.
|
AW: 2 dimensionales Array sortieren die X'te...
Ich meinte mit Liste auch weniger TStringList oder gar die visuellen Kompos, als viel mehr TList, TObjectList oder noch besser die generischen Vertreter in neueren Delphis. Das ist dann alles andere als dirty, sondern genau der Zweck, für den es diese gibt ;)
|
AW: 2 dimensionales Array sortieren die X'te...
Zitat:
Wie willst du ein Fahrrad ohne Räder fahren? Diese Komponente basieren intern ja auch auf Arrays (oder evt. verkettete Listen / was auch immer) -.-' |
AW: 2 dimensionales Array sortieren die X'te...
Hallo,
was noch meiner Meinung nach noch nicht herausgekommen ist, nach welchen Kriterien überhaupt sortiert werden soll. Gegeben z.B, ein 3x4 Array
Code:
Sollen dann die Zeilen oder Spalten sortiert werden?
0 1 2 3
0 5 3 7 1 1 4 2 2 3 2 9 7 4 5 Oder soll das alles als eine Zeile verstanden sein:
Code:
Und diese dann sortiert werden?
5 3 7 1 4 2 2 3 9 7 4 5
Grüße Klaus |
AW: 2 dimensionales Array sortieren die X'te...
Es sollen die Zeilen nach einer Spalte voller Integer's sortiert werden.
|
AW: 2 dimensionales Array sortieren die X'te...
Ich habe es jetzt über eine ColumnListBix von TMS "gelöst". Nicht elegant, ich weiß. Eure Lösungen sind sicher besser. Aber ich steige da nicht durch, sobald es um mehrdimensionalität geht.
Trotzdem danke. Ich halte das alles im Hinterkopf und gucke mir das noch an wenn ich mehr Ruhe habe, damit ich sowas in Zukunft besser machen kann. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:51 Uhr. |
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 by Thomas Breitkreuz