Compare TRect, wie am besten angehen?

[himitsu]

Ab höheren XE hat TRect und TPoint nette Operatoren und davon auch welche für Vergleiche.

Zitat:

Delphi-Quellcode:

  if (R1.Top < R2.Top) then Result := -1
  else
  if (R1.Top = R2.Top) then Result := 0
  else
  if (R1.Top > R2.Top) then Result := 1;

Result := CompareValue(R1.Top, R2.Top)


Aber die Frage ist auch, wonach die sortiert werden sollen.