|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
Delphi 12 Athens
|
AW: Compare TRect, wie am besten angehen?
22. Jun 2015, 22:16
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.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
Geändert von himitsu (22. Jun 2015 um 22:43 Uhr)
|