Tagarray

[EWeiss]

Zitat von p80286:

Ich würde statt eines Arrays die gute alte doppel verpointerte Liste nehmen.
Oder gleich eine (Object)Liste, die bekommt eine Sortierfunktion oder 2 oder 3... und fertig ist die Laube.

Gruß
K-H

Bitte nicht schlagen, ich bin extrem konservativ.

Entschuldige weis jetzt nicht was du meinst.

gruss

[p80286]

Na Pointerlisten sind doch aus der Hexenküche der alten Säcke!

Gruß
K-H

[Delphi.Narium]

Keine Ahnung, ob ich mich jetzt blamiere

Nur mal so 'ne hingedaddelte Idee (ungetestet, nicht kompiliert, nur so mal eben hingehauen )

Delphi-Quellcode:

procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer);
var
  i : Integer;
  tempZ : Integer;
  tempFace : Integer;
  done : Boolean;
begin
  repeat
    done := True;
    for i := Low(zorder) to High(zorder) - 1 do
    begin
      if zorder[i] > zorder[i + 1] then
      begin
        tempZ := zorder[i];
        tempFace := faceorder[i];
        zorder[i] := zorder[i + 1];
        faceorder[i] := faceorder[i + 1];
        zorder[i + 1] := tempZ;
        faceorder[i + 1] := tempFace;
        done := False;
      end;
    end;
  until done;
end;

[EWeiss]

Danke

Daran habe ich auch schon gedacht wusste aber nicht nach welchen Kriterien ich sortieren soll.
Fehler gibt es keinen nur sichtbare die ZOrder ist immer noch durcheinander.
Hmmm.. vielleicht liegt es an meiner DLL muss das nochmal gegen prüfen.

gruss

[EWeiss]

Irgendwie ist die Sortierung noch nicht in Ordnung.
Mit dem Bubblesort geht es nicht auch nicht nach meiner Änderung.

Delphi-Quellcode:

procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer);
var
   i : Integer;
   tempZ : Integer;
   tempFace : Integer;
   done : Boolean;
begin
   repeat
     done := True;
     for i := 10 downto 1 do 
     begin
       if zorder[i] > zorder[i + 1] then
       begin
         tempZ := zorder[i];
         tempFace := faceorder[i];
         zorder[i] := zorder[i + 1];
         faceorder[i] := faceorder[i + 1];
         zorder[i + 1] := tempZ;
         faceorder[i + 1] := tempFace;
         done := False;
       end;
     end;
   until done;
end;

Es drehen sich alle im Kreis aber der Visuelle Effekt ist der einer Schlange.
Das letzte Icon ist das grüne Index 10 die anderen setzen sich jetzt alle dahinter.

Bubblesort macht eigentlich nichts, wenn ich sie nicht verwende habe ich das gleiche verhalten.

gruss

[p80286]

So auf den ersten Blick scheint das grundsätzlich in Ordnung zu sein. Aber
for i := 10 downto 1 do ist nicht so optimal

for i := length(zorder)-1 downto 0 do wäre wohl besser (oder das high/low Gespann).

Und wenn sich nichts tut, liegen die Daten vllt. schon sortiert vor?

Gruß
K-H

P.S.
Schöne Feiertage wünsch ich Dir.

[EWeiss]

for i := length(zorder)-1 downto 0 do
Es ist kein Dynamisches Array und die werte sind bekannt.
Deshalb dürfte das von der Berechnung her erst einmal egal sein.

Zitat:

So auf den ersten Blick scheint das grundsätzlich in Ordnung zu sein.

Nur dann frage ich mich warum die ZOrder dann falsch ist.

Zitat:

Schöne Feiertage wünsch ich Dir.

Ich dir/euch auch.

Im Bild kannst du sehen das sich die Icons schlängeln.
Wenn das 10 Icon (grün) durch ist müssen sich die anderen in der ZOrder über das davor liegende setzen.. wenn die Icons sich nach rechts drehen.
Sind aber alle dahinter. sehe gerade ein Icon fehlt (kann ich später berichtigen )


gruss

[p80286]

Zitat von EWeiss:

Es ist kein Dynamisches Array und die werte sind bekannt.
Deshalb dürfte das von der Berechnung her erst einmal egal sein.

Bist Du Dir da sicher?
procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer); Hiernach hängt sich Zorder zumindest ein Dynamik-Mäntelchen über. Kontrollier das doch mal bitte im Debugger.
Und wenn dein kleinstes Element den Index 0 hat dann ist 1 für das kleinste Element nicht so optimal.
Aber müßte dann der Index 10 nicht vor die Wand laufen? (Bereichsprüfung?)

Gruß
K-H

[EWeiss]

Zitat:

Und wenn dein kleinstes Element den Index 0 hat dann ist 1 für das kleinste Element nicht so optimal.

Hat sich erst mal erledigt liegt an meiner LIB.
Trotzdem Danke.

gruss

[EWeiss]

OK ich muss nochmal dran.

würde das vielleicht über TArray funktionieren?
Also 2 Arrays sortieren?

Hab mich da mal versucht aber irgendwie komme ich damit nicht so recht klar.

TArray(A1, A2) ?
Ich habe schon eine aber die kann ich leider nicht verwenden.

Die Lösung\Vorschlag von hier funktioniert so leider nicht.


gruss