Arrayzugriff nimmt irgendwelche Wahllos-Variableninhalte aus Speicher

[JanWe]

Guten Morgäään, (oh, man ... die halbe Nacht steppe ich nun schon durch diese paar lächerlichen Zeilen dämlichen Code - *rote Augen reib*)

derzeit weiß ich nicht, wie ich das besser beschreiben soll (müde).
Ich möchte mit dem SelectionSort Algorithmus mein Array sortieren.
Dazu hab ich mir eine zweite "Indexvariable" implemetiert:
SortListNumber.
Nur diese wird verändert - nicht die ganzen Felderinhalte verschoben.

so in ner andern Funktion ist Form1.DynARray[J].SortListNumber fortlaufend, incrementiert (Felder 0 bis 9 sind belegt mit "int" 0 bis 9 )

Doch aus irgendwelchen Gründen tauchen nachher, wenn ich später mal
for i := 0 to Form1.MyItemMax - 1 do
durch gehe sind manche Zahlen in SortListnumber (immer wieder, reproduzierbar ) 3575 statt 9 oder 24145 statt 4, ...
Bsp: 8,5, 7, 3575 , 3, 24145,2 ,0 , 1 , 6.
wenn ich die Schleife nochmaldurchgehe werden auch die anderen Ziffern nacheinander durch 24145 ersetzt....

d.h. der holt die wohl irgendwo aus dem Speicher.
Aber wo???



Form1.DynARray[i].MyItem;

Delphi-Quellcode:

procedure TDateienFORM.SORTButtonClick(Sender: TObject);
Var
k, tmp, HHH,  maxi, i, j, : Integer;
begin

maxi := Form1.MyItemMax; // verwendete/belegte Felder vom DynArray [0..1000]


for i := 0 to maxi - 1 do
begin
   hhh := Form1.DynARray[i].MyItem;  // MyItem => zu vergeleichendes Feld
   k := i;
                                                                       
   for j :=  i+ 1 to maxi - 1 do begin // +1

      if Form1.DynARray[J].MyItem < hhh then
      begin
         k := j;
         hhh := Form1.DynARray[J].SortListNumber;
      end;

   end;
   Form1.DynARray[k].SortListNumber := Form1.DynARray[i].SortListNumber;
   Form1.DynARray[i].SortListNumber := hhh;
end;
end;

die Algorithmus-Variablennamen (TMP, hhh, , k) sind leicht abgewandelt von dem Algorithmus, den ich irgendwann mal im Web gefunden jab. Quelle unbkeannt. Aber er müßte mit dem auf Wikipedia gefundenen Pseudocode identisch sein.
https://de.wikipedia.org/wiki/Selectionsort (bin das vergleichend durchgegangen)

Sieht jemand meinen Denkfehler?
Danke - entschuldigt bitte meine Problem-Beschreibung. Bin noch Delphi-newbie.

[CarlAshnikov]

Was mir beim drüberlesen auffällt ist, dass du, wenn kein Eintrag gefunden wird, HHH aus Form1.DynARray[i].MyItem befüllst, es aber in Form1.DynARray[i].SortListNumber reinschreibst.

[Zoot]

Deine Variable hhh stellt einmal den Wert des Elementes, einmal die Sortierreihenfolge dar. Das solltest du dir nochmal näher anschauen, am besten unterschiedliche Variablen verwenden.

[Zoot]

Zitat:

Zitat von CarlAshnikov (Beitrag 1298451)

Was mir beim drüberlesen auffällt ist, dass du, wenn kein Eintrag gefunden wird, HHH aus Form1.DynARray[i].MyItem befüllst, es aber in Form1.DynARray[i].SortListNumber reinschreibst.

Richtig. Und selbst wenn ein Eintrag gefunden wurde, wird ab da nicht mehr mit "MyItem" verglichen, sondern mit der Sortiernummer, was gar keinen Sinn ergibt.

[himitsu]

Zum Problem wurde ja schon Einiges gesagt, also nun noch was zum Design:

Du verwendest in dieser Methode ausschließlich Variablen von Form1.
Warum ist liegt dieser Code also nicht in einer "Sortier"-Methode von Form1, welche über SORTButtonClick aufgerufen wird?

[Sir Rufo]

Wem ist denn der Fehler in dem Wikipedia-Code aufgefallen? ;)

[himitsu]

?

1. Wiki hat immer Recht.
2. Sollte sie nicht Recht haben, dann gilt Punkt 1.
3. Im Zweifel fragt man den G. und der sagt Wiki habe Recht.

[Sir Rufo]

Wenn wir den Wikipedia-Pseudeo-Code mal nach Delphi übersetzen (das geht quasi 1:1, denn das riecht nach gedeutschtem Pascal)

Code:

prozedur SelectionSort( A : Liste sortierbarer Elemente ) 
  n = Länge( A )
  links = 0
  wiederhole
    min = links
    für jedes i von links + 1 bis n wiederhole 
      falls A[ i ] < A[ min ] dann
          min = i
      ende falls
    ende für
    Vertausche A[ min ] und A[ links ]
    links = links + 1
  solange links < n
prozedur ende

in Delphi (aber falsch)

Delphi-Quellcode:

procedure SelectionSort( var A : TArray<Integer> );
var
  n, i, links, min : Integer;
  temp : Integer;
begin
  n := Length( A );
  links := 0; // soso, das erste Element hat den Index 0 :o)
  repeat
    min := links;
    for i := links + 1 to n do
    begin
      if A[ i ] < A[ min ] then
        min := i:
    end;
    
    temp := A[ links ];
    A[ links ] := A[ min ];
    A[ min ] := temp;

    links := links + 1;
  until not( links < n );
end;

und nun mal richtig

Delphi-Quellcode:

procedure SelectionSort( var A : TArray<Integer> );
var
  n, i, links, min : Integer;
  temp : Integer;
begin
  n := High( A );
  links := Low( A );
  while links < n do
  begin
    min := links;
    for i := links + 1 to n do
    begin
      if A[ i ] < A[ min ] then
        min := i:
    end;
    
    if links <> min then
    begin
      temp := A[ links ];
      A[ links ] := A[ min ];
      A[ min ] := temp;
    end;

    links := links + 1;
  end;
end;

[himitsu]

Gut, die Schleife ist falschrum, aber solange die Liste nicht leer ist, knallt es auch nicht. :stupid:

Und das fehlende

Delphi-Quellcode:

if links <> min then

... sich selber mit sich austauschen ist zwar sinnlos, aber zumindestens nicht falsch. :angle:

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1298485)

Gut, die Schleife ist falschrum, aber solange die Liste nicht leer ist, knallt es auch nicht. :stupid:

Und das fehlende

Delphi-Quellcode:

if links <> min then

... sich selber mit sich austauschen ist zwar sinnlos, aber zumindestens nicht falsch. :angle:

Das war eigentlich nur Makulatur, der größte Fehler ist, dass der 0-Index nicht berücksichtigt wird.
Bei 6 Elementen bekomme ich als Länge 6 zurück. Die Elemente spreche ich aber über 0..5 an und genau da liegt der Fehler in dem Pseudo-Code, der greift auch auf den Index 6 zu, was das 7. Element wäre, was es gar nicht gibt.