Wert bestimmen ohne Format

[Tormentor32]

Typischer Anwendungsbereich wäre eine Liste, die man nach verschiedenen Kriterien verkettet.

Nehmen wir mal an, wir haben eine Liste von Schülern. Jeder Schüler hat verschiedene "Eigenschaften", Name, Vorname, Geburtstag, Adresse, Klasse, etc...

Das können wir der einfach in einem Record lösen:

Delphi-Quellcode:

type
  TSchueler = Record
    Name,Vorname: string;
    Geburtstag: TDate;
  end;

Das Prinzip der mehrfach verketteten Liste funktioniert so, dass Jeder Eintrag auf den nächsten zeigt. Wenn wir unsere Schüler also nach Geburtstag und nach Name ordenen wollen können, dann müssen wir folgendes machen

Delphi-Quellcode:

type
  PSchueler: ^TSchueler;

Und an unserem Record TSchueler müssen wir folgendes ändern:

Delphi-Quellcode:

type
  TSchueler = Record
    Name,Vorname: string;
    Geburtstag: TDate;
    NaechsterBeiGeburtstag,
    NaechsterBeiName: PSchueler;
  end;

Jetzt haben wir die Zeiger mit in den Record genommen.

Nach näherem Betrachten liegt der Vorteil gegenüber einem Array auf der Hand: Wir können Die Liste Sortieren, ohne dass wir die Einträge hin und her schieben müssen, das heißt, wenn unsere Liste 10000 Schüler hat, die man nach 10 Kriterien sortieren kann, dann dauert das, wenn man jeden Eintrag verschieben muss wesentlich länger! Bei der Zeigerliste müssen wir lediglich die Zeiger umbiegen, wenn wir einen neuen Schüler einfügen, oder einen Entfernen.

Ich hoffe ich konnte dir das näher bringen, bei Fragen: fragen!