Felder eines Objectes

[Lemmy]

entweder über die alte RTTI (unit TypeInfo) oder die neue RTTI http://docwiki.embarcadero.com/RADSt..._RTTI_arbeiten

KOmmt also erst mal drauf an welche Delphi-Version du hast, dann bastelt dir sicherlich jemand auch einen Beispielcode...

[michael.cohrs]

Danke für die Antwort,

ich arbeite tatsächlich noch mit Delphi 6.0 (Zwangsläufig weil in der Firma nichts anderes verfügbar ist)

[himitsu]

Natives ObjectPascal ohne RTTI:

Delphi-Quellcode:

type
  TTest = class
  private
    FTest: array[1..9] of Integer;
    function  Getter(Index: Integer): Integer;
    procedure Setter(Index, Value: Integer);
  public
    property Test1: Integer index 1 read Getter write Setter;
    ...
    property Test9: Integer index 9 read Getter write Setter;
    property Test[Index: Integer]: Integer read Getter write Setter;
  end;

[michael.cohrs]

DANKE!!! so funktionierts!!

noch eine Frange: ich habe eine ObjectListe mit n Objekten die ich aus einer DB Lade.

das erste Feld des Objectes ist ein Wert vom Typ String der jedoch nummerisch ist.
wie kann ich diese Feld in der Objektliste sortieren?

Danke für weitere Antworten

Michael

[Aviator]

Zitat von michael.cohrs:

das erste Feld des Objectes ist ein Wert vom Typ String der jedoch nummerisch ist.
wie kann ich diese Feld in der Objektliste sortieren?

Also wenn du die Reihenfolge deiner Objekte in der ObjectList sortieren möchtest, dann kannst du beim Erzeugen der ObjectList ein Comparer mit übergeben. Dort drin kannst du dann sortieren wie du willst. Bspw. mit CompareString.

[michael.cohrs]

Danke für die Antwort, ich habe so etwas leider noch nie gemacht, hast Du ein Beispiel für mich?

[himitsu]

Müsste man auch erstmal schauen, wie die TObjektList in Delphi 6 nochmal aussah und ob sie diese Funktion bereits besaß.
IComparer/TComparer und Co. wurden jedenfalls erst später eingeführt.

Wenn du einen String als Zahl vergleichen willst, dann muß du ihnvor dem Verleich auch in eine Zahl umwandeln,
oder dir selber eine Stringvergleichfunktion schreiben, welche Strings nach den Regeln der Zahlen vergleicht.

Einige "Listen" besitzen mindestens eine TObjectList.Sort-Funktion, wovon oft eine Variante mit einer selbstgeschriebenen Vergleichsfunktion aufgerufen werden kann.
In dieser Funktion procedure MeinVergleich(A, B: TObjekt): Integer{TValueRelationship} , kannst du dann selber entscheiden was wie sortiert/verglichen werden soll.
Beispiel: CompareStr, CompareText oder CompareValue