Felder eines Objectes

[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

Delphi-Quellcode:

procedure MeinVergleich(A, B: TObjekt): Integer{TValueRelationship}

, kannst du dann selber entscheiden was wie sortiert/verglichen werden soll.
Beispiel: CompareStr, CompareText oder CompareValue

[michael.cohrs]

Nochmals Danke für die Antwort, das Umwandeln etc. ist kein Problem nur die Sortierung...da weiss ich echt nicht weiter und würde mich über ein praktisches Beispiel freuen.

Gruß
Michael

[himitsu]

Ich hatte meine Antwort zwischenzeitlich noch etwas erweitert.

[himitsu]

Es steht das zwar auch irgendwo in der OH, aber grob geht der Vergleich etwa so
(oder man klaut z.B. bei CompareValue:Integer)

Delphi-Quellcode:

if A.xxx < B.xxx then
  Result := -1
else if A.xxx > B.xxx then
  Result := +1
else {if A.xxx = B.xxx then}
  Result := 0;

Meherere Werte vergleichen dann der Reihe nach.

Delphi-Quellcode:

if A.xxx < B.xxx then
  Result := -1
else if A.xxx > B.xxx then
  Result := +1
else
  if A.zzz < B.zzz then
    Result := -1
  else if A.zzz > B.zzz then
    Result := +1
  else
    Result := 0;