Austausch-Sortieralgorithmus mit Prozeduren

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