Tagarray

[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

[EWeiss]

Habe jetzt mal meine eigene Variante erstellt aber auch diese funktioniert nicht.
Hoffe das ist richtig so
Bereichsprüfung ist an Fehler gibt es keinen.

Delphi-Quellcode:

procedure BubbleSwap(var Value1, Value2: Integer);
var
  lTemp: Integer;

begin

  lTemp := Value1;
  Value1 := Value2;
  Value2 := lTemp;
end;

procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer);
var
  IntI, IntK: Integer;
begin

  for IntI := Low(zorder) to (High(zorder) - 1) do
  begin
    for IntK := (IntI + 1) to High(zorder) do
    begin
       if zorder[IntI] > zorder[IntK] then
       begin
         BubbleSwap(zorder[IntI], zorder[IntK]);
         BubbleSwap(faceorder[IntI], faceorder[IntK]);
       end;
    end;
  end;
end;

gruss