Array Sortieren

[Plat]

So hier mal der bisherige code:

Delphi-Quellcode:

type TDatum   = record
              Tag       : Byte;
              Monat     : Byte;
              Jahr      : Integer;
            end;

  TSchuelerRec = record
              Name      : String[25];
              Vorname   : String[25];
              Gebdatum  : TDatum;
              VName     : String[25];
              MName     : String[25];
              EinschulD : TDatum;
              Klasse    : Char;
              Klassenst : Integer;
              Status    : Boolean;
            end;

  TSchuelerArr = Array[1..100] of TSchuelerRec;

var SchuelerArr : TSchuelerArr; //mir egal welchen arr namen ihr nimmt... :)

...
...
...

procedure TForm1.Swap(i,j: Integer);
var dummy: TSchuelerRec;
begin
  dummy := SchuelerArr[j];
  SchuelerArr[i] := SchuelerArr[j];
  SchuelerArr[j] := dummy;
end;


procedure TForm1.Sortiere;
var i,j: integer;
begin
  for i:= Low(SchuelerArr) to High(SchuelerArr) do
    for j:= i + 1 to High(SchuelerArr) do begin
      if SchuelerArr[j].Name<SchuelerArr[i].Name then Swap(i, j)
    end;
end;

procedure TForm1.SortBtnClick(Sender: TObject);
var i: integer;
begin
  Sortiere;
  ListBox1.Clear;
  For i := Low(SchuelerArr) to High(SchuelerArr) do
    begin
    If (SchuelerArr[i].Name<>'') then
      ListBox1.Items.Add(SchuelerArr[i].Name);
    end
end;