Selectionsort - Problem mit richtiger Zuweisung der Werte

[thechus]

Hey, ich habe hier ein Problem.
Als ich in meinem Programm folgende Prozedur aufrufen ließ, hängt sich Delphi auf.

Ich weiß aber nicht, wo der Fehler liegt...

hier die Prozedur:

Code:

var
  Form1: TForm1;
  Werte: Array[1..max] of Integer;
  Anzahl,Zahl: integer;

[...]


procedure TForm1.SelectionSort;
var i,k,maxi,j:integer;
    wert: word;
begin
 maxi := high(Werte);
 for i := 0 to maxi - 1 do
  begin
   wert := werte[i];
   k := i;
   for j := i + 1 to maxi do if werte[j] < wert then
    begin
     wert := werte[j];
     k := j;
   end;
  werte[k] := werte[i];
  werte[i] := wert;
  end;
end;

Dane fur eure Hilfe!

Gruß,
thechus

[Uwe Raabe]

Zitat von thechus:

Code:

  Werte: Array[1..max] of Integer;

Welchen Wert hat max?

[thechus]

Hey,

const
max = 1000000;

Ich weiß, dass es keinen Sinn hat.
Der Lehrer verlangt dies so, zur Vorbereitung auf die bald kommenden dynamischen Arrays,

Super schnelle Antwort, wie immer!

Gruß,
thechus

[Furtbichler]

Delphi hängt sich nicht auf, sondern sortiert sich nen Wolf.

Ändere mal die eine Zuweisung 'maxi := ...' von 'High(Werte)' auf die tatsächliche Anzahl der im doch recht großen Array enthaltenen Werte. Oder hast Du gleich 1000000000 Werte da drinnen?

SelectionSort ist eh ziemlich lahm, weil ja für jedes Element im Schnitt n/2 Vergleiche ausgeführt werden müssen. Und 'n' ist bei dir doch recht groß.

[thechus]

Hey,

das ist mir gerade aufgefallen, als ich von Herrn Raabe hingewiesen wurde.
Ich hab den Wert geändert:

Code:

procedure TForm1.SelectionSort;
var i,k,maxi,j:integer;
    wert: word;
begin
 maxi := high(Anzahl);
 for i := 0 to maxi - 1 do
  begin
   wert := werte[i];
   k := i;
   for j := i + 1 to maxi do if werte[j] < wert then
    begin
     wert := werte[j];
     k := j;
   end;
  werte[k] := werte[i];
  werte[i] := wert;
  end;
end;

Anzahl und die Prozedur kommen hier ins Spiel:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var
anfang, ende: real;
begin
 ListBox2.clear;
 Anzahl := StrToInt(Edit1.Text);
 pause(100);
 PnlZeit.Caption := 'Die Zeit läuft...';
 Anfang := Time;
 if combobox2.ItemIndex = 0 then bubblesort;
 if combobox2.ItemIndex = 1 then selectionsort;
[...]

Momentane Fehlermeldung:
Es taucht beim Klick auf Button2 ein Fenster mit:
"Im Projekt Project1.exe ist ein Exeption der Klasse EAccessViolation aufgetreten[...]"
Debugger sagt:
[Warnung] Unit1.pas(110): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert

Was ist denn da zu tun?

Danke für eure Hilfe!

Edit: Ich sollte noch hinzufügen, dass er die folgende Zeile Markiert:

Code:

   for j := i + 1 to maxi do if werte[j] < wert then

Gruß,
thechus

[Lemmy]

Zitat von thechus:

Momentane Fehlermeldung:
Es taucht beim Klick auf Button2 ein Fenster mit:
"Im Projekt Project1.exe ist ein Exeption der Klasse EAccessViolation aufgetreten[...]"

dann mach einen Brakepoint in die Prozedur und sag uns an welcher Stelle diese Fehlermeldung erscheint.

Zitat von thechus:

Debugger sagt:
[Warnung] Unit1.pas(110): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert

Du vergleichst einen Word mit einem Integer. Schon mal in der Hilfe nachgeschaut (Integer-Typen) was ein Word und ein Integer ist?

Grüße

[thechus]

Zitat von Lemmy:

dann mach einen Brakepoint in die Prozedur und sag uns an welcher Stelle diese Fehlermeldung erscheint.

Du vergleichst einen Word mit einem Integer. Schon mal in der Hilfe nachgeschaut (Integer-Typen) was ein Word und ein Integer ist?

Die Stelle habe ich oben nochmal ergänzt, wohl zu spät tut mir leid.
Hmm... selbst wenn ich beide Werte als Integer deklariere taucht die Fehlermeldung auf.

Danke für die Hilfe.

Gruß,
thechus

[Furtbichler]

Zitat von thechus:

Code:

procedure TForm1.SelectionSort;
...
 maxi := high(Anzahl);
...

Na? Welchen Wert hat maxi nun?

[Luckie]

Mach aus wert einen Integer. Word ist ohne Vorzeichen, Integer schon. Der Datentyp Word ist eh unsinnig.

[thechus]

Zitat von Furtbichler:

Na? Welchen Wert hat maxi nun?

Ach!!
So hat maxi ja den Wert 100...8Wenn man im Editfeld 100 eingibt)

Das Programm generiert ja zunächst eine Liste aus zufälligen Zahlen aus der Menge Anzahl.
Somit muss ich doch "High(Werte[i])" nehmen, da das gerade die Werte sind, die unsortiert sind. Davon die größte Zahl.

An der Fehlermeldung hat dies aber nichts weiter geändert...
Kommt man da vielleicht in Widerspruch mit irgendwas oder habe ich irgendwo einen nicht existierenden Wert generiert?

Hier nochmal der Quellcode:

Code:

const
  max = 1000000;

var
  Form1: TForm1;
  Werte: Array[1..max] of Integer;
  Anzahl,Zahl: integer;

[...]


procedure TForm1.SelectionSort;
var i,k,maxi,j,wert:integer;
begin
 maxi := high(Werte[i]);
 for i := 0 to maxi - 1 do
  begin
   wert := werte[i];
   k := i;
   for j := i + 1 to maxi do if werte[j] < wert then
    begin
     wert := werte[j];
     k := j;
   end;
  werte[k] := werte[i];
  werte[i] := wert;
  end;
end;

Danke für die Hilfe... autsch...

Gruß,
thechus