Problem bei arrays

[JP29]

mit der suche lag an der groß- und kleinschreibung...hab jetzt ansiuppercase eingefügt

hab jetzt aber ein problem mit nem suchalgorhytmus ... buublesort

und zwar wollt ich die arrays alphabetisch nach dem vornamen ordnen lassen, aber irgendwie funzt das net

Delphi-Quellcode:

  for i:=1 to anzahl-1 do begin
   for j:=2 to anzahl do begin
    if AnsiCompareText(myadr[j-1].vorname, myadr[j].vorname)>0 then begin
     s:=myadr[j-1].vorname;
     myadr[j-1].vorname:=myadr[j].vorname;
     myadr[j].vorname:=s;

     s:=myadr[j-1].nachname;
     myadr[j-1].nachname:=myadr[j].nachname;
     myadr[j].nachname:=s;

     s:=myadr[j-1].alter;
     myadr[j-1].alter:=myadr[j].alter;
     myadr[j].alter:=s;
   end;
  end;
 end;

[shmia]

Beim Sortieren gibt es 2 Grundoperationen: Vergleichen und Vertauschen.
Vergleichen und Vertauschen ist die Basis fast aller Sortieralgorithmen.

Dein Code zum Vertauschen von 2 Adr Records ist relativ schlecht, drum hier eine bessere Variante:

Delphi-Quellcode:

procedure VertauscheAdrRecord(var a,b: TAdr);
var
  temp : TAdr;
begin
  temp := a;
  a := b;
  b := temp;
end;

[himitsu]

Zitat:

aber irgendwie funzt das net

Was ist irgendwie? ( Fehlerbeschreibung? )

Ach ja, die Grenzen des Arrays (des Arrayteils, welcher grade verwendet wird) ist wieder mal überschritten.
Du hast doch ein Array mit 0 bis Anzahl-1 (sieht zumindestens so aus),
aber eine Sortierung von 1 bis Anzahl .