Austausch-Sortieralgorithmus mit Prozeduren

[Dalai]

Zitat von implementation:

Zitat von Dalai:

Auch wenn man eine Deklaration weglassen kann, wenn die aufgerufene Funktion vor dem Aufruf steht, so sollte man sich angewöhnen, immer eine Deklaration vorzunehmen.

Aber nur, wenn die Funktion auch für andere Units sichtbar sein soll. Ist es eine unitinterne Funktion, gehört sie nicht in den Interface-Teil und sollte höchstens im implementation-Teil mit forward deklariert werden.

Da hast du Recht. Allerdings kann man - und hier bietet sich das eigentlich an - die Funktionen innerhalb der Klasse TForm deklarieren. Dann sind sie deklariert, aber nicht von einer anderen Unit aus zugänglich (private genügt ja).

MfG Dalai

[haui95]

So..
habe noch einmal die Fehler überarbeitet, die mir hier genannt wurden, das Programm läuft auch, doch beim Sortieren wieder eine Zugriffsverletzung. Vielleicht könnte sich jemand den Quelltext noch mal anschauen oder mir auch noch einmal kurz erläutern, wie man dieses Programm mit Prozeduren umsetzen kann.

MfG

Delphi-Quellcode:

Type TFeld = Array [1..100] of Integer;

var
  Form1: TForm1;
  Feld: TFeld;

implementation

{$R *.dfm}

procedure Beenden();
begin
  Application.Terminate;
end;

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

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

procedure Tauschen(var Feld: TFeld; i, j: Integer);
var
  Temp: Integer;
begin
  if (Feld[i] > Feld[j]) then
    begin
      Temp := Feld[i];
      Feld[i] := Feld[j];
      Feld[j] := Temp;
    end;
  Ausgabe(j);
end;

procedure Sortieren(var Feld: TFeld);
var
  i, j: Integer;
begin
  for i := 1 to 100 - 1 do
    for j := i + 1 to 100 do
      Tauschen(Feld, i, j);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Beenden();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ListBox1.Clear;
  Generieren(Feld);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  j: Integer;
begin
  Ausgabe(j);
end;
end.

[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 )