Auswahlsort

[nothin]

Doch es ist gewollt. Schau Dir die Sortieralgorithmen von hier an. Es ist das Selectsort.

[Minz]

Delphi-Quellcode:

For i := 1 To BalkenZahl - 1 Do Begin
  min := i;
  
  Application.Processmessages;

  For j := i + 1 To BalkenZahl Do Begin
    Application.Processmessages;

    If recsize2[j]<recsize2[min] Then min:=j;
  End;
...

Also so rum sieht mir das richtiger aus, wobei du jetzt nach dem kleinsten Element suchst.
(Du willst ja mit dem kleinsten anfangen)
Wurde im Array durch die For j - Schleife ein kleineres Element gefunden als an Position i dann musst du später also die Balken an position i mit min vertauschen.

[Minz]

das kann nicht gewollt sein.

Stell dir vor der Balken hat die Länge 250 und dein Array/Balken geht nur bis 100 !

[nothin]

Mhm ... ich glaub Du überblickst das Ganze nicht ganz. Es werden nur Balken mit der Größe von 1 bis 150 gezeichnet.

[Minz]

doch ich glaub ich blicke es !

Mein letzter Code nimmt die entsprechenden Änderungen vor !

Dann ist es auch egal wie die Ausprägung der Werte ist.

Statt

Delphi-Quellcode:

If recsize2[min] <> recsize2[i] Then Begin

kannst du dann auch

Delphi-Quellcode:

If min<>i then begin

nehmen.

Gruß Minz

[nothin]

Es reicht also wenn Du das Größerzeichen in Kleinerzeichen änderst? Das funktioniert bei mir aber nicht und warum sollte es auch?

[Minz]

Guck dir alles nochmal genau an!!!!!!

Es geht hier um das Durchmischen von Index und Werten.

Lass dir am besten den Array in einer Listbox oder so ausgeben,
um sicher zu gehen, dass das Array richtig sortiert ist.

Ich habe NICHT NUR ein kleiner/größerzeichen verändert!

[nothin]

Ich finde nichts. Kannst Du bitte Deinen ganze Code posten?

[Minz]

Hab ich doch hier schon gepostet (in diesem Thema)

min=i habe ich noch verändert.

Das heißt min also keinen Wert sondern einen Index zuweisen,
wie bei

min=j auch geschieht.

Da ich mir den ganzen Grafikkram nicht angeschaut habe könnte
da also auch noch ein Fehler stecken.

Deswegen der Hinweis das Array mal in einer Listbox oder Memo oder
sowas auszugeben und zu schauen, ob am Ende alle Werte in der richtigen
Reihenfolge drinstehen.

[nothin]

Servus Minz,

an min := i lag es. Viele Dank für Deine Hilfe :lol:.