2 dimensionales Array sortieren die X'te...

[Satyr]

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:

meinArray : Array of Array of Integer; es werden 2 Felder benutzt und mit Zahlen gefüllt:

Delphi-Quellcode:

meinArray[z][1] := StrToInt(beispielzahl1);
meinArray[z][2] := StrToInt(beispielzahl2);

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.

Mit BubbleSort soll das einfach sein, las ich. Aber ich weiß nicht wie ich das auf meinen Fall anwende...

Gruß,
Andreas

[sx2008]

Sortieren benötigt immer 2 Grundoperationen: Vergleichen (Compare) und Vertauschen (Swap)
Versuche 2 Funktionen zu schreiben:

Delphi-Quellcode:

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;

Damit kannst du nun beliebige Sortierverfahren ansetzen, die CompareXXXX() oder SwapXXXX() benützen.

[Satyr]

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?

[sx2008]

Wenn du dem Array ein Typ gibst kannst du es auch durchreichen:

Delphi-Quellcode:

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;

Noch besser wäre es, wenn du das Array sammt Compare-, Swap- und Sortierfunktion in einer Klasse verpacken würdest.

[Satyr]

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.

[Aphton]

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:

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.

es ist eig. gar kein Aufwand..