Sortierung von Array of Record

[knochen]

Hallo zusammen,

ich habe einige Arrays vom Typ Record, z.B.

Delphi-Quellcode:

type
  TRecord1 = record
    Datum: String;
    Text1: String;
    Text2: String;
    Text3: String;
  end;

  TRecord1Array = Array of TRecord1;

  TRecord2 = record
    Datum : String;
    Text  : String;
    Nummer: Integer;
    Geld  : Currency;
  end;

  TRecord2Array = Array of TRecord2;

  TRecord3 = record
    Datum : String;
    Nummer: Integer;
    Text1 : String;
    Text2 : String;
    Text3 : String;
    Text4 : String;
    Text5 : String;
  end;

  TRecord3Array = Array of TRecord3;

Allen Records gemein ist das Datum, und das soll auch mein Sortierkriterium sein.
Gibt es eine Möglichkeit, diese verschiendenen Arrays durch eine einzige Sortierfunktion sortieren zu lassen?

Vielen Dank,
Knochen

[jaenicke]

Nur mit bösen Hacks, die ich nicht empfehlen würde (z.B. einfach per Pointer zugreifen, da das Feld immer am Anfang steht).

Das Problem sind schlicht die Records. Wenn du stattdessen Klassen nimmst, kannst du das ganze mit Vererbung sehr elegant lösen.

[himitsu]

Jupp, in neueren Delphis könntest du sehr schön, über die neue erweiterte RTTI, auf die Felder der Records zugreifen.
Geht teilweise auch in der "alten" RTTI, aber eben auch nur mit ein bissl rumgepointere.

Bei Objekten mit zusätzlichen RTTI-Infos, wie z.b. bei TComponent-Nachfahren, kann man auch in älteren Delphis sehr einfach auf Published-Felder der Objekte zugreifen. (das nutzt ja auch schon die VCL, um z.B. Formulare zu laden oder zu speichern)

Oder man geht garnicht erst über die RTTI und nutzt Klassen mit einen gemeinsamen Vorfahren, wie jaenicke schon erwähnte, wo dann das Datum drin steckt.




Pssst, warum ist Datum ein String?
Währe z.B. ein TDateTime nicht einfacher? Vorallem da man dieses sicher vergleichen könnte, ohne auf das Format (wie eventuell das aktuelle Sprachschema) achten und eventuell umwandeln zu müssen.

[mkinzler]

Fällt aber auch unter "böse" Hacks ...

[himitsu]

Zitat von mkinzler:

Fällt aber auch unter "böse" Hacks ...

Och, die Getter/Setter der neuen RTTI-Klassen empfinde ich da schon als weniger schlimm,
als einfach nur ein paar wilde Casts, hinter denen eventuell noch schnwindlige manuell geschätze Offsetberechnungen stecken.

[Medium]

Ich vermute, dass mkinzler darauf hinaus wollte, dass sich die Lösung des konkreten Problems mit den nackten Mitteln der OOP bereits umfassend erschlagen ließe, und dass das Bemühen der RTTI wohl tendenziell ein paar Zentimeter zu tief in die Trickkiste gegriffen wäre. Gesetz dem Fall meine Interpretation trifft zu, stimme ich der Aussage zu

Einfach eine Basisklasse mit Datums-Property, und eine Listenklasse, die Items dieses Basisklasse trägt und eine Sortiermethode dieser mit sich bringt. Alles darüber hinaus ist "Code-Candy" - mag der Wiederverwendbarkeit helfen, ist für das vorliegende Problem aber viel zu weit gefasst. (Spezialisierte Lösungen haben durchaus ihre Existenzberechtigung in meiner Welt - man verfängt sich sonst doch sehr schnell in "philosophische Programmierung", die gerade bei Bearbeiten einer Auftragsarbeit eher hinderlich sein kann. Für Spaß aber gerne )

[knochen]

OK, bau ich's halt auf Klassen um.
Danke

[Bummi]

Vergiss nicht von einer gemeinsamen Basisklasse mit Datum abzuleiten.

[DeddyH]

Und wenn das Datum schon ein String sein muss, dann aber am Besten im Format YYYY-MM-DD, sonst wird es schwierig mit dem Sortieren. Noch besser wäre aber, den passenden Datentyp (TDate/TDateTime) zu verwenden.

[shmia]

Zitat von knochen:

Gibt es eine Möglichkeit, diese verschiendenen Arrays durch eine einzige Sortierfunktion sortieren zu lassen?

Ja, wenn du für jeden Recordtyp zwei Funktionen bereitstellst.
1.) function Compare(Index1, Index2: Integer): Integer; // 2 Records vergleichen
2.) procedure Exchange(Index1, Index2: Integer); // 2 Records vertauschen

In der Code-Library gibt es eine Sortierklasse von mir mit der du nach diesem Prinzip alles sortieren kannst.
Pro Sortieranwendung muss man nur von der Sortierklasse ableiten und die beiden obigen Funktionen implementieren.