Quicksort eines Datensatzes nach alphabet

[Sai]

aha, das ging ja schnell^^

also die profile sind natürlich in record organsisiert und diese dann als reihe
die anazhl an profielen is nich festgelegt, je nachdem wieviel man eingibt, maximal 100 allerdings

ja, die sollen nach name sortiert werden, also in dem fall record.name

diese ganzen records werden dann mittels FILE OF (also assigne, write, etc...) gespeichert
das ganze soll nun so funktionieren, das wen ich im menü auswähle (alle profile anzeigen), die namen aller profile nacheinander ausgibt -> also will ich in erster linie die ausgabe sortieren

wenn das natürlich auch die orginal sortiert wärs besser, aber das isja noch schwerer
ich häng mal nen code teil an den ich fertig habe, wie ich mir da so gedacht hatte

Delphi-Quellcode:

PROCEDURE hilfsreihe;
VAR nummer : INTEGER;
BEGIN
     RESET(profile);
     nummer :=0; {=Nummer des ersten DS in Orig.-Datei}
     WHILE NOT EOF(profile) DO
           BEGIN
           READ(profile,datenbank);
           WITH (datenbank) DO
              BEGIN
              hilfsdaten[nummer].schl :=nam;
              hilfsdaten[nummer].nr   :=nummer;
              END;
           INC(nummer);
     END;
     r_index := nummer - 1;
     {writeln('Anazhl DS in DB;');
     writeln('Zaehlung beginnt mit 0');
     writeln(r_index);
     writeln; }
     GOTOXY(30,8);writeln('Weiter mit Enter!');
     writeln;
END;

PROCEDURE qsort (l,r : INTEGER);
VAR i,j,x,y       : INTEGER;
    sz            : tHILF;
BEGIN
     hilfsreihe;
     RESET(profile);
     i:=l;
     j:=r;
     x:=(l+r) DIV 2;
     REPEAT
           WHILE hilfsdaten[i] < x DO
           i:=i+1;
           WHILE x < hilfsdaten[j] DO
           j:=j-1;
           IF i<j THEN
           BEGIN
           y:=hilfsdaten[i];
           hilfsdaten[i] := hilfsdaten[j];
           hilfsdaten[j] := y;
           i:=i+1;
           j:=j-1;
           END;
     UNTIL i>j;
     IF l<j THEN
     qsort(l,j);
     IF i<r THEN
     qsort(i,r);
END;

     {FOR k := 0 TO (r_index - 1) DO
         BEGIN
           kleinstes := k;
           FOR l:=k+1 TO r_index DO
             IF hilfsdaten[l].schl < hilfsdaten[kleinstes].schl THEN
             kleinstes := l;
           sz := hilfsdaten[k];
           hilfsdaten[k] := hilfsdaten[kleinstes];
           hilfsdaten[kleinstes] := sz;
     END; }
END;

PROCEDURE hilfsdaten_speichern;
VAR k:INTEGER;
BEGIN
     ASSIGN(datenbanksort,'E:\pfsort.dat');
     REWRITE(datenbanksort);
     qsort(0..nummer);
     FOR k:=0 TO r_index DO
         write(datenbanksort,hilfsdaten[k]);
     CLOSE(datenbanksort);
END;

PROCEDURE sortdat_ausgeben;
VAR k,ke,dz:integer;
    test,test2:string;

BEGIN
     clrscr;
     kopf;
     hilfsdaten_speichern;
     textcolor(yellow);
     GOTOXY(25,6); write('Profile geordnet nach Name');
     GOTOXY(25,7); write('~~~~~~~~~~~~~~~~~~~~~~~~~~');
     textcolor(lightgray);
     writeln; writeln;
     RESET(profile);

     FOR k:=0 TO r_index DO
         dz:=0;
         BEGIN
         SEEK(profile,hilfsdaten[k].nr);
         READ(profile,datenbank);
         WITH (datenbank) DO
            test := datenbank.nam;
            test2:=datenbank.rasse;
            GOTOXY(22,11+(k*3));writeln(k+1,'.','Name: ':10,test:20);
            GOTOXY(24,12+(k*3));writeln('    Rasse: ':(10),test2:19);
            END;
         readln;{
         inc(dz);
         IF dz DIV 5 = 0 THEN
         BEGIN
         clrscr;
         ke:=k;
         kopf;
         GOTOXY(22,11+(ke/dz*3);writeln(k+1,'.','Name: ':(10),test:20);
         GOTOXY(24,12+(k/dz*3);writeln('    Rasse: ':(10),test2:19);
         END
         ELSE
         END;  }
END;

kurz zusammengefasst:

wenn das ausgeben im HP aufgerufen wird, wird zuerst ne hilfsreihe erzeugt aus der gespeicherten datei
danach kommt die qsort prozedur, wo ich keine ahnung habe wie ich die machen sollte dabei
darnter das in kommentarklammern is die "sortieren durch auswahl" lösung fürn notfall
dann wirds die sortierte hilfsreihe gespeichert
und diese ausgegeben


naja, hoffe ihr könnt mir helfen

@wer sich wundert, das da "rasse" steht, das programm geht um das spiel warcraft3, nur zum leichteren verständnis hab ich adressbuch geschrieben