Ich habe eine Frage bezüglich einer Sortierung(BubbleSort) einer Typisierten Datei!!
Delphi-Quellcode:
TID = cardinal;
TName = string[50];
TTyp = (CD, DVD);
TLaenge = cardinal;
TKategorie = (Film,Musik,Software,SonstigeDaten);
TMedium = record
ID : TID;
Name : TName;
Typ : TTyp;
Kategorie : TKategorie;
case TKategorie of
Film :(FilmFormat: TName;Laenge : TLaenge;FilmKategorie : TName);
Musik:(MusikFormat,MusikKategorie : TName);
Software:(Hersteller,Schlüssel : TName);
SonstigeDaten:(Zusatz : String[70]);
Das ist der Record!!
Type Datei = File of TMedium;
Das ist die Datei!!!
Nun möchte ich zum Beispiel die Datei nach ID Sortieren, beginnend mit der 1 und endend mit der Filesize(Datei)!!
Wenn man jetzt das Hauptgerüst eines BubbleSorts hat .....
Delphi-Quellcode:
for x:=1 to FileSize(Datei) do
for y:=1 TO (FileSize(Datei)-1) do
Wie könnte man jetzt die Datei sortieren????
Man muss ja den Index eines Datensatzes mit dem Index eines anderen Datensatzes vergleichen, nur wie greift man darauf zu??