Austausch-Sortieralgorithmus mit Prozeduren

[Dalai]

Eiei, jede Menge Fehler sehe ich da...

Die Funktion Sortieren wird gar nicht aufgerufen, warum? Warum sind die Funktionen Sortieren, Tauschen, Ausgabe & Co nicht deklariert? 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.

Delphi-Quellcode:

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

Öhm, die Schleife benutzt i als Laufvariable, aber der Feldindex benutzt j? Das kann nicht funktionieren und wird wahrscheinlich auch der Grund für die AV sein.

Und wäre es nicht besser, das var Feld: TFeld; durch ein const Feld: TFeld; zu ersetzen? Bin mir nicht ganz sicher, ob hier dasselbe zutrifft wie bei Objekten, deren Adresse ja durch das const geschützt wird und nicht deren Inhalt.

Noch ein paar Kleinigkeiten:

• Application.Terminate sollte man vermeiden, wenn es geht. Ein einfaches TForm.Close tut seinen Dienst ebenfalls, bedeutet aber deutlich weniger hartes Beenden des Programms (härter ist nur Halt oder das Abschießen des Prozesses).
• Verwende aussagekräftige Bezeichner! Button1 und Edit1 sind kein solchen.
• Auch wenn man Funktion(); für parameterlose Funktionen verwenden kann, ich vermeide es und benutze stattdessen Funktion; . Keine Ahnung, ob das Verwenden leerer Klammern Auswirkungen haben kann und/oder ob das irgendeinem Standard entspricht oder widerspricht (nein, ich meine nicht den C-Standard ).
• Du benutzt ein statisches Feld mit 100 Elementen, erlaubst dem Benutzer aber gleichzeitig, eine Zahl in ein Edit einzugeben, die darüber hinausgehen kann. Das ist potentiell fehlerträchtig! Dazu kommt, dass ungültige Eingaben (Buchstaben & Co) nicht weggeworfen werden.

MfG Dalai

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

Zitat:

[*]Auch wenn man Funktion(); für parameterlose Funktionen verwenden kann, ich vermeide es und benutze stattdessen Funktion; . Keine Ahnung, ob das Verwenden leerer Klammern Auswirkungen haben kann und/oder ob das irgendeinem Standard entspricht oder widerspricht (nein, ich meine nicht den C-Standard ).

Ich habe mir inzwischen wieder Klammern angewöhnt, weil sonst Selbstaufrufe doppeldeutig sein können:

Delphi-Quellcode:

function xyz: Integer;
begin
  // do smthng
  a := xyz;
  // do smthng
end;

Nun steht es dem Compiler offen, ob er "xyz" wie "Result" wertet (TP-Abwärtskompatibilität) oder als Selbstaufruf, der Ausdruck ist nicht eindeutig. Aber zugegeben - rekursive Funktionen haben ja meist Parameter, daher kommt's selten vor.

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