Array sortieren

[Michael S.]

Zunächst nochmal VIELEN DANK! Du schreibst dir hier ja wirklich einen Wolf, um mir Begriffsstutzigen das hier zuerklären.
Also wenn ich deine Ausführungen verstanden hab, war es eigentlich mein Plan das "Insertionsort" zu verwenden. Ich hab den Quellcode jetzt dementsprechend geändert, aber klappen tut es immernoch nicht. Im Gegenteil: Ich bekomme zwei saftige Fehlermeldungen, wenn ich dem Array ein zweites Element hizufüge (nach jedem hizufügen soll das Array sortiert werden!) Das Array wird aber dennoch nicht sortiert: Klick 1Klick 2

Also hier mein momentaner Quelltext:

Delphi-Quellcode:

procedure Arrayordnen;
var Anzahl: integer;
    x,y: integer;
    min: tmyadress;
    minposition: integer;
begin
  anzahl:=anzahlfinden;
  Min:=MyAdress[1];
  for y:=1 to (Anzahl) Do
    begin
      For x:=y to (Anzahl) do
        begin
          if MyAdress[x].Name < Min.Name Then
            begin
              Min:= MyAdress[x];
              MinPosition:= x;
            end;
        end;
      MyAdress[MinPosition]:=MyAdress[y];
      MyAdress[y]:=min;
    end;
end;

Gruß
Michael