Fehlermeldung durch Rave-Komponente: inkompatible Typen

[AppleFan]

Hallo, folgendes Problemchen:

Delphi-Quellcode:

uses ..., Printers, ...
...
if Printer.Orientation = poPortrait then ...
...

soweit alles ok, keine Fehlermeldung, aber mit Rave-Komponente (und somit uses rpDefine) auf der Form und unverändertem Code:

Fehler: Inkompatible Typen: TPrinterOrientation und TOrientation

Wie komme ich aus der Nummer raus ? OK, mit Ord(Printer.Orientation) geht es auch, aber irgendwie ist das doch blöde !

[Hawkeye219]

Hallo,

ich kenne die Rave-Komponente nicht, vermute aber, daß in der Unit rpDefine eine Konstante mit Namen poPortrait vom Typ TOrientation definiert ist. Der Compiler arbeitet bei der Auflösung von Bezeichnernamen die Uses-Liste von hinten nach vorne ab. In deinem Fall findet er somit die Konstante aus der Rave-Unit, die natürlich nicht kompatibel zur Printer-Eigenschaft Orientation ist.
Es gibt zwei mögliche Lösungen:

• Führe die Unit Printers in der Uses-Anweisung hinter rpDefine auf. In diesem Fall kann aber an einer anderen Stelle im Programm eine Fehlermeldung erscheinen, wenn eine Konstante aus der Rave-Unit benötigt wird.
• Gib den vollständigen Namen der Konstante an: Printers.poPortrait.

Den Weg über Ord würde ich nicht einschlagen. Der Compiler wird es vielleicht übersetzen, allerdings wird u. U. nicht der gewünschte Vergleich durchgeführt, weil sich die Ordinalwerte der gleichnamigen Konstanten aus Printers und rpDefine unterscheiden können.

Gruß Hawkeye

[AppleFan]

Hallo,

Danke sehr, das war ein guter Hinweis: "vollständiger Name" !
(eigentlich auch logisch, da hätte ich auch selber drauf kommen müssen)