Austausch-Sortieralgorithmus mit Prozeduren

[haui95]

So, habe mir Zeit genommen mich nochmal mit den Routinen zu beschäftigen und habe den "Austausch-Algorithmus" noch einmal neu in Quelltext verfasst, jedoch sortiert mir mein Programm nun Namen oder Wörter in einer ListBox. Vielleicht könnte jemand einmal drüber schauen. Bis jetzt funktioniert das Programm

Delphi-Quellcode:

const n = 100;

var
  Form1: TForm1;
  Feld: Array[1..n] of String;
  Zaehler: Integer;

implementation

{$R *.dfm}

procedure Hinzufuegen(Name: String);
begin
  Feld[Zaehler] := Name;
  inc(Zaehler);
end;

procedure Tausche(var Str1, Str2: String);
var
 Temp: String;
begin
  Temp := Str1;
  Str1 := Str2;
  Str2 := Temp;
end;

procedure Sortieren;
var
  i, j: Integer;
begin
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (Uppercase(Feld[i]) > Uppercase(Feld[j])) then
        Tausche(Feld[i], Feld[j]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Zaehler := Zaehler + 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Hinzufuegen(Edit1.Text);
  ListBox1.Clear;
    for i := 1 to n do
      if (Feld[i] <> '') then
        ListBox1.Items.Add(Feld[i]);
        Edit1.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
 Sortieren;
 ListBox1.Clear;
 for i := 1 to n do
   if (Feld[i] <> '') then
     ListBox1.Items.Add(Feld[i]);
end;
end.

[Aphton]

Ja sieht nun viel ordentlicher aus.

Es gibt aber immernoch Probleme, wenn auch nur kleine:

1. deine Zählervariable:
- es findet keine Initialisierung statt - nirgendswo bekommt Zähler einen Anfangswert (1?) verpasst. Im FormCreate wird sie "erhöht" (inkrementiert) - sie hat aber einen zufälligen Wert (davon ist auszugehen, wenn nichts zugewiesen wurde bei globalen Variablen).
- die Procedure "hinzufügen" ist fehleranfällig: wenn du es nämlich genau 100x ausführst und noch ein weiteres Mal. Da wird dann versucht, auf einen Index zuzugreifen, der außerhalb des Bereiches liegt (Bereichsfehler). Besser wäre es, wenn du ne Kontrolle einbaust ~ (Zähler <= n)

2. der "Schließknopf"
- Application.Terminate funktioniert zwar, aber dies gibt deiner Anwendung nicht die Möglichkeit, Deinitialitsierungen durchzuführen (Speicherfreigaben usw). Besser ist es, wenn du einfach ein Close; aufrufst.

[Delphi-Laie]

Was, zum Teufel, ist der "Austausch-Sortieralgorithmus"?

[Furtbichler]

Google, zum Teufel, mal.