Einzelnen Beitrag anzeigen

Guido Eisenbeis

Registriert seit: 9. Apr 2006
389 Beiträge
 
Delphi 10.3 Rio
 
#1

Wie realisieren: "if (Rect1 = Rect2) then"

  Alt 30. Aug 2009, 14:21
In meinem Programm sollen zwei TRects miteinander verglichen werden. Im konkreten Fall frmMain.BoundsRect mit Screen.WorkAreaRect. Ich habe schon etliche Beiträge in verschiedenen Foren im World-Wide-Web durchgelesen, jedoch wurde dort keine Lösung beschrieben. Was dabei jedoch klar wurde, war, dass man das "Miteinander-Vergleichen" möglichst genau beschreiben muss.

Das will ich hiermit tun: Unter dem Vergleichen zweier TRects verstehe ich in meinem Fall, dass die einzelnen Felder der TRects miteinander verglichen werden.

Zum Beispiel führe ich den Vergleich derzeit so durch:

Delphi-Quellcode:
  if (frmMain.BoundsRect.Left = Screen.WorkAreaRect.Left)
    and (frmMain.BoundsRect.Top = Screen.WorkAreaRect.Top)
    and (frmMain.BoundsRect.Right = Screen.WorkAreaRect.Right)
    and (frmMain.BoundsRect.Bottom = Screen.WorkAreaRect.Bottom)
    and ...
Wie kann man das nun kürzer lösen, ohne jedes einzelne Feld zu vergleichen?

Guido.
  Mit Zitat antworten Zitat