Tagarray

[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