Arrayzugriff nimmt irgendwelche Wahllos-Variableninhalte aus Speicher

[JanWe]

grüß Euch,

mhh, habb jetztmehrmals was probiert ...
v.a. mit dem untenstehenden Code:

Zitat:

Zitat von Sir Rufo (Beitrag 1298482)

[...]
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;

ich hab A[] mal gegen DYNarray ausgetauscht und Links NUll gesetzt, weil das das niedrigste Feld im Array ist.

Delphi-Quellcode:

procedure SelectionSort( A : Integer ); // hab die direkte Übergabe momentan gestrichen - war mir zu kompliziert.
var
  n, i, links, min : Integer;
zahl1, zahl2,  temp : Integer;
begin
  n := form1.Bildmax;
  links := 0 ;
  while links < n do
  begin
    min := links;
    for i := links + 1 to n do
    begin
      if Form1.DynARray[ i ].Kriterium < Form1.DynARray[ min ].Kriterium then
        min := i;
    end;

    if links <> min then
    begin
      temp := Form1.DynARray[ links ].SortListNumber;
      Form1.DynARray[ links ].SortListNumber := Form1.DynARray[ min ].SortListNumber;
      Form1.DynARray[ min ].SortListNumber := temp;
    end;

    links := links + 1;
  end;
end;

So (Kriterium wird in der Position NICHT VERSCHOBEN !!!! nur die SortListNummer!!):
Durchgeang 1 : Original reihenfolge VOR dem Sortieren
[Code]
SortListNummer; OriginalPlatzNummer; Kriterium
0 0 80171
1 1 63091
2 2 487258
3 3 3735
4 4 24149
5 5 24149
6 6 24149
7 7 5863
8 8 242816
9 9 24039
___________________________
Nach Sortieren: (1x geklickt)
0 0 80171
0 1 63091
1 2 487258
2 3 3735
3 4 24149
4 5 24149
5 6 24149
6 7 5863
7 8 242816
8 9 24039
-------------------------

So kommt jetzt die zweite 0 her? und warum fehlt die 9?

[himitsu]

Zuerst könnte man ja mal auf die saudumme Idee kommen und in den Projektoptionen die Indexprüfung aktivieren. :roll:

[JanWe]

Zitat:

Zitat von himitsu (Beitrag 1298792)

Zuerst könnte man ja mal auf die saudumme Idee kommen und in den Projektoptionen die Indexprüfung aktivieren. :roll:

Grüß Dich himitsu,

mhh, ja, kannste nicht wissen .. ich hab nur Delphi 5
da is das wohl noch nich vorgesehn (s. Screenshot).

Hab jetzt einfach nochmal ein wenig durchgesteppt (obwohl .. bei 100x F7 wirste auch langsam ... :D)
naja
und jedenfalls mal n-1 gesetzt - (ob das jetzt algorithmisch sinnvoll/richtig ist, weiß ich nicht.)
Aber wenigstens verschwindet nicht mehr die 9 und die Null taucht nur 1x auf.

Delphi-Quellcode:

procedure SelectionSort( A : Integer );
var
  n, i, links, min : Integer;
 temp : Integer;
begin
  n := 10 ; // anzahl der Kriterien
  links := 0 ;
  while links < n do
  begin
    min := links;
    for i := links + 1 to n [b]-1[/b]  do
    begin
      if Form1.DynARray[ i ].Kriterium < Form1.DynARray[ min ].Kriterium then
        min := i;
    end;

    if links <> min then
    begin
      temp := Form1.DynARray[ links ].SortListNumber;
      Form1.DynARray[ links ].SortListNumber := Form1.DynARray[ min ].SortListNumber;
      Form1.DynARray[ min ].SortListNumber := temp;
    end;

    links := links + 1;
  end;
end;

Allerdings find ich nicht, daß die Vergleiche sinnvoll stattgefunden haben....

SortierListNR (neu sortiert); TAB OriginalPosition ; TAB Kriterium
3 0 80171
0 1 63091
1 2 487258
2 3 3735
7 4 24149
4 5 24149
5 6 24149
6 7 5863
9 8 242816
8 9 24039

denn sortiert is da irgendwie nix:
SortierListNR; TAB OriginalPosition (neue Pos) ; TAB Kriterium (neue Pos)
0 1 63091
1 2 487258
2 3 3735
3 0 80171
4 5 24149
5 6 24149
6 7 5863
7 4 24149
8 8 242816
9 9 24039


wenn ich das hiermit ausgebe.

Delphi-Quellcode:

for i := 0 to 9  do
begin
a := form1.DynARray[i].SortListNumber;
memo3.lines[a] :=(
inttostr(form1.DynARray[i].SortListNumber) + #9 +
inttostr(form1.DynARray[i].Originalnummer) + #9 +
inttostr(form1.DynARray[i].Kriterium) + #9 + ''
);

[Dalai]

Himitsu meinte die Überlaufprüfung und/oder die Bereichsprüfung, schätze ich mal, und die gibt's beide auch im Delphi 5.

MfG Dalai

[TRomano]

Ist die auf dem Screenshot abgebildete Bereichsüberprüfung nicht die "Index-Überprüfung" ... ?

zu spät ...

[JanWe]

Zitat:

Zitat von TRomano (Beitrag 1298801)

Ist die auf dem Screenshot abgebildete Bereichsüberprüfung nicht die "Index-Überprüfung" ... ?

zu spät ...

ich hab die dann einfach mal ausprobiert, als der davon schrieb - bevor ich eben gepostet hatte.

Delphi hatte aber jeweils keine Meldung ausgegeben - auch nicht, als noch n ohne n-1 stand.
Darum dachte ich, er meint was anderes.

aber daß da nur was vertauscht, aber nicht sortiert wird, - is schon komisch.
Ich hab einfach nur den Code von Sir Rufo genommen
und eine Variablennamen da eingefügt. (so, wie ich das verstanden hatte. Und eigntlich seh ich da auch keinen Fehler in dem Algorithmus. Also ich seh den nich. ...
http://www.delphipraxis.net/1298798-post13.html (mein Post)

[quaero]

Zitat:

Zitat von JanWe (Beitrag 1298798)

Delphi-Quellcode:

    if links <> min then
    begin
      temp := Form1.DynARray[ links ].SortListNumber;
      Form1.DynARray[ links ].SortListNumber := Form1.DynARray[ min ].SortListNumber;
      Form1.DynARray[ min ].SortListNumber := temp;
    end;

    links := links + 1;
  end;
end;

Irgendwie wendest du den Algorithmus nicht wirklich an. Es geht darum, dass du das kleinste Element suchst und an den Anfang schiebst und dann im Rest weitersuchst.
Das, was du machst, ist aber, dir nur zu merken, welche beiden Elemente du tauschen müsstest (im ersten Schritt Element 3 auf 0 und 0 auf 3), ohne tatsächlich zu tauschen. Das führt dazu, dass das größere Element an der Stelle bleibt und nicht weiter beachtet wird, während das kleinste Element immer wieder gefunden und als Tauschpartner gefunden wird.
Entweder führst du den Tausch tatsächlich aus oder die passt die Suche nach dem kleinsten Element in der Weise an, dass immer alle 10 Elemente geprüft werden, aber nur, wenn deren SortListNumber > aktueller Index ist.

[BadenPower]

Der Code von Sir Rufo ist zum Sortieren eines Array gedacht und dazu müsstest Du die Arrayelemente verschieben.

Da Du aber scheinbar nicht das Array sortieren möchtest, entgegen der Überschrift, sondern nur die Rangfolge der Werte bestimmen möchtest und in SortListNumber hinterlegen ist dies nicht der richtige Algo für Dich.

Auf die Schnelle würde ich dies so lösen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  liZ1: Integer;
  liZ2: Integer;
  lLowerCount: Integer;
  lHigh: Integer;
begin

  lHigh := Length(DynArray) - 1;

  for liZ1 := 0 to lHigh do
   begin
    lLowerCount := 0;
    for liZ2 := 0 to lHigh do
     begin
      if (DynArray[liZ2].Kriterium < DynArray[liZ1].Kriterium) then
       begin
        Inc(lLowerCount);
       end;
     end;
    DynArray[liZ1].SortListNumber := lLowerCount;
   end;

end;