[gelöst] Bedingte compilierung abhängig von der LCL Version?

[fliegermichl]

Ich verwende in meinem Programm den Event UserHandleMessage der vom Typ TOnUserInputEvent ist und dessen Deklaration sich zwischen verschiedenen LCL Versionen geändert hat.

Nun dachte ich mir so leichtsinnig: "Das kann man ja in eine bedingte Compilierung einbauen".
Geht aber net.

Code: Alles auswählen

{$if laz_fullversion >= 49900}
 Procedure HandleMessage(Sender : TObject; Message : TLMessage);
{$else}
 Procedure HandleMessage(Sender : TObject; Message : Cardinal);
{$endif}

Wenn ich das so compilieren will, meckert der Compiler, dass er einen String erwartet. Nehme ich die Unit lazversion mit hinein, meckert er zwar nicht mehr darüber, compiliert aber immer die erste Version.

Die einzige Lösung war jetzt ein

Code: Alles auswählen

{define haslcl499}

zu deklarieren und das je nach LCL Version ein- oder auszuschalten. Das kann doch aber nicht Sinn der Sache sein.

[paweld]

Code: Alles auswählen

uses
  LCLVersion;
  
{$IF LCL_FULLVERSION >= 4990000}
// >= 4.99
{$ELSE}
// < 4.99
{$ENDIF}

[fliegermichl]

Hast du es probiert?
Der Compiler geht immer in den ersten Zweig!

[paweld]

Ja, ich habe es ausprobiert, und es funktioniert – das wird auch in allgemein verfügbaren Komponenten verwendet, z. B. jvcllaz und tvplanit. Tatsache ist jedoch, dass die IDE die Syntax falsch einfärbt.

[fliegermichl]

Ich Hirni hab in dem Vergleich eine 0 zu wenig drin gehabt. Dann ist natürlich die Version immer größer 49000