EAccessViolation bei Bubblesort

[Dyvil]

nee das funktioniert auch nicht, immernoch der gleiche fehler...

[quendolineDD]

Hilft eventuell das hier weiter?

EDIT:

Da ich oben sehe, das ein Speicherfehler vorliegt, du benutzt doch eine Liste, wurde diese auch richtig instanziert?

Eventuell hilft es dir, wenn du mal unter Optionen -> Compiler -> Optimierung uncheckst und dann mit F4 und F7 deinen Code einzeln durchguckst. Wenn du dann mit der Maus drüber gehst, kannst du dir die Werte der Variablen zur Laufzeit anzeigen lassen )

EDIT2:

Gerade mal deinen Quelltext angeschaut. Also du hast ja ein var List: TStringList; Du solltest hier, bevor du auf diese Liste irgendwie verweist und Werte schreiben willst, diese auch mal instanzieren. BVis jetzt weiß Delphi nämlich noch nicht, wo diese im Speicher sich befindet.

Füge mal ein List:= TStringList.Create; hinzu

[Dyvil]

Delphi-Quellcode:

procedure BubbleSort(var List: Blg);
var
  done: boolean;
  i, n: integer;
  Dummy: string;
begin
  List:= TStringList.Create;

dann kommt ein fehler, dass "blg" und "TStringlist" inkompatible Typen sind

Edit: ich habe das "list:= TStringList.Create" mal als formcreate prozedur geschrieben, aber dann kommt der ursprüngliche Fehler immernoch!

[quendolineDD]

Tut mir leid, war mein Fehler. Das kannst du wieder wegmachen ;o)

Ich schätze mal deine Bereichsverletzung kommt aus der Zeile.
for i := Low(List) to High(List) - 1 do Mache hier draus mal for i := Low(List) to High(List) - 2 do Wenn du dir das hier mal anschaust

Delphi-Quellcode:

procedure BubbleSort(Items: TStrings);
var
  done: boolean;
  i, n: integer;
  Dummy: string;
begin
  n := Items.Count;

  repeat
    done := true;
    for i := 0 to n - 2 do
      if Items[i] > Items[i + 1] then
      begin
        Dummy := Items[i];
        Items[i] := Items[i + 1];
        Items[i + 1] := Dummy;

        done := false;
      end;
  until done;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  BubbleSort(Listbox1.Items);
end;

http://www.dsdt.info/tipps/?id=368
Hab ich in #12 schon gepostet

[Dyvil]

das hier funktioniert so nicht, weil er dann nur 4 statt 5 Werte sortiert und den 5. Wert einfach an den Schluss hängt. Die Sortierung wird dann also falsch:
for i := Low(List) to High(List) - 2 do Den Link zum Bubblesort habe ich mir schon angeguckt, jedoch habe ich ein record und kein einfaches array....

[quendolineDD]

Hast du mal geschaut, an welcher Stelle er den Fehler bringt?

[Dyvil]

der Fehler müsste schon relativ früh auftauchen glaube ich. Wenn ich Bubblesort einfach rauskommentiere, steht im string nicht das, was da stehen soll (also das Editfeld). Also müsste theoretisch beim Einlesen des stringwertes ein Fehler sein, aber andererseits klappt das "StrToInt" bei den Noten wunderbar, somit weiß der Rechner ja eigentlich, welches Editfeld gemeint ist... Eigentlich...

[quendolineDD]

Delphi-Quellcode:

procedure TAbiturrechner.Button1Click(Sender: TObject);
var noten : Blg;
    i     : integer;

begin
for i := 1 to 5 do begin
noten[i].Notenpunkte := strtoint(Edit1.Text);
noten[i].Editfeld := Edit1.Text;
end;
Bubblesort(noten);
end

Das ist ja eigentlich keine wirkliche Änderung :\

EDIT: Wieso eigentlich 5 mal das gleiche aus Edit1.Text auslesen?
Und warum genau 5 mal, wenn doch Blg ein Array[1..10] ist ?

[Dyvil]

da wird nichts 5 mal aus Edit1.Text ausgelesen, das musst du falsch verstanden haben. Schaue dir doch nochmal meinem Post #9 an, da steht:
s := TEdit(FindComponent('Edit' + inttostr(i))).Text;

[DeddyH]

Da steht dann aber nicht "Edit1.Text" drin, sondern der Inhalt von Edit1