Austausch-Sortieralgorithmus mit Prozeduren

[Aphton]

Das hier ist unfug:

Delphi-Quellcode:

procedure Ausgabe(j: Integer);
var
  i: Integer;
begin
  for i := 1 to 100 do
    Form1.ListBox1.Items.Add(IntToStr(Feld[j]));
end;

Du lässt nur das j.te Element ausgeben.. und das 100 x

Edit: + j ist nicht initialisiert so wie du ihn aufrufst (himitsu)

[himitsu]

Zitat:

Delphi-Quellcode:

var
  j: Integer;
begin
  Ausgabe(j);
end;

Und dann wurde noch nichtmal angegeben welches j-te ausgegeben werden soll.
Selbst Schuld, wenn du nicht auf die Compilermeldungen hörst, denn da steht bestimmt garantiert was vonwengen "j sei nicht initialisiert".

Wenn du mal in den Projektoptionen die Bereichsprüfung aktivierst, dann wirst du direkt informiert wo und vorallem warum es da knallt.

Es kann auch nicht schaden sich mal mit dem Debugger vertraut zu machen.
Erstmal um uns genau die Fehlerstelle zu nennen. ( wurde dir denn keine Fehlerzeile gezeigt? )
Und auserdem hättest du im Debuger selber erkennen können warum es knallt, indem du dir an der Fehlerstelle mal die Variablen ansiehst (speziell das j )