Eigene Meldungen beim Compilieren ausgeben

[Mathias]

Ich habe gerade folgendes entdeckt, dies könnte dem einten oder anderen nützlich sein.

Code: Alles auswählen

procedure Foo;
begin
  {$message 'Muss noch angepasst werden !'}
  {$fatal 'Fataler Fehler !'}
end;     

"faltal" ist gar brutal, es ist kein kompilieren mehr möglich.
Aber "message" könnte echt praktisch sein. Man entwickelt eine package und merkt man will noch etwas ändern, aber man kommt noch nicht dazu. Dann ist "$message" eine gute Gedankenstütze.

[af0815]

Ich verwende das seit ewigen Zeiten, alleine um mir zu sagen, in welchen Modus ich gerade kompiliere.

Es gibt viele so kleine versteckte Helfer, die einem das Leben leichter machen. so ein Klassiker ist

Code: Alles auswählen

{$IfDef Debug1} DebugLn({$I %FILE%} + '->' +{$I %CURRENTROUTINE%}); {$EndIf} 

Damit weis man, wo man gerade im Quelltext ist auf der Debugkonsole.

[MmVisual]

Hallo,

Gibt es ein Define für die LCL Version?

Ich würde gerne mein Programm schon mal für Lazarus V3 vorbereiten. Es gibt in V3 depreached Code, den man gegenüber V2.2.6 umschreiben sollte. Das hatte ich gerne per Define schon mal umgeschrieben und da ich mehrere OS benutze und nicht alle jetzt schon hochziehen will wäre es gut wenn es so etwas gäbe um umschalten zu können.

VG Markus

[Mathias]

Hallo,

Gibt es ein Define für die LCL Version?

Ich würde gerne mein Programm schon mal für Lazarus V3 vorbereiten. Es gibt in V3 depreached Code, den man gegenüber V2.2.6 umschreiben sollte. Das hatte ich gerne per Define schon mal umgeschrieben und da ich mehrere OS benutze und nicht alle jetzt schon hochziehen will wäre es gut wenn es so etwas gäbe um umschalten zu können.

VG Markus

Für FPC habe ich etwas gefunden:

Code: Alles auswählen

  {$IF FPC_FULLVERSION>=030001}
  TPointF = Types.TPointF;
  TRectF = Types.TRectF;
  {$ELSE}  

Dazu habe ich noch etwas interessantes gefunden, nur Lazarus findet man nicht,
https://www.freepascal.org/docs-html/prog/progap7.html

Da habe ich etwas gefunden, aber es geht leider nicht. https://wiki.freepascal.org/LCL_Defines, es wird ein String verlangt.
Da habe ich folgendes probiert, aber egal was für eine Zahl ich reinschreibe, es geht alles durch.

Code: Alles auswählen

  {$if (lcl_fullversion >= '4000600')}
  DoSomething(); // only do this for Lazarus 2.0.6 or later
  {$endif}   

Edit:
Lösung gefunden: https://forum.lazarus.freepascal.org/in ... ic=45144.0

Code: Alles auswählen

uses ..., LCLVersion
...
  {$if lcl_fullversion > 2000000}
  WriteLn('Grösser 2');
  {$endif}
  {$if lcl_fullversion > 3000000}
  WriteLn('Grösser 3');
  {$endif}
  {$if lcl_fullversion > 4000000}
  WriteLn('Grösser 4');
  {$endif}

[MmVisual]

Ich nutze gerade Lazarus V3.0 RC2.

Code: Alles auswählen

  {$if (lcl_fullversion >= 3000000)}
  aSize:= ThemeServices.GetDetailSizeForPPI(aDetails, ScreenInfo.PixelsPerInchX);
  {$else}
  aSize:= ThemeServices.GetDetailSize(aDetails);
  {$endif} 

Es sollte das erste aktiv sein, es ist jedoch das zweite aktiv. Es funktioniert nicht, kann ich bestätigen.

Edit:
Die USES habe ich mit eingebunden, es geht dennoch nicht. Zumindest zeicgt es mir der Lazarus Editor falsch an.
Der Compiler macht es jedoch richtig.

[Mathias]

Es sollte das erste aktiv sein, es ist jedoch das zweite aktiv. Es funktioniert nicht, kann ich bestätigen.

Was spuckt folgendes aus ?

Code: Alles auswählen

Writeln(lcl_fullversion);

[MmVisual]

Ich nutze nicht das WrLn, sondern die in Lazarus V3 neue Funktion.

Wenn die alte Funktion aktiv ist, dann zeigt mir das Nachrichtenfenster "depreached" an, beim verwenden der neuen Funktion nicht.
Der Compiler macht das richtig, nur der Lazarus Editor zeigt die Logik verkehrt herum an.
Anbei 2 Screenshots:

Bild1.png (31.52 KiB) 4420 mal betrachtet

Bild2.png (23.46 KiB) 4420 mal betrachtet

[Mathias]

Der Compiler macht das richtig, nur der Lazarus Editor zeigt die Logik verkehrt herum an.

Evt.l ein Bug.

Ich nutze nicht das WrLn, sondern die in Lazarus V3 neue Funktion.

Code: Alles auswählen

Showmessage(lcl_fullversion.tostring);

[MmVisual]

Bugreport erstellt:

https://gitlab.com/freepascal.org/lazar ... sues/40645

Ich hoffe es ist so verständlich.

[Warf]

Ich nutze {$FATAL Message} und {$ERROR Message} sehr gerne, z.b. wenn ich eine unit schreibe die nur auf einem Betriebsystem oder nur auf einer Architektur funktioniert, aber sonst keinen compiler Error auslösen würde (z.b. weil einfach nur Dateien nicht existieren würden die der Code braucht)

Oder um Warnings auszugeben falls was noch nicht vollständig oder korrekt implementiert wurde.

Ist halt eine sehr gute Möglichkeit um anderen Nutzern des Codes (z.b. als Teil einer Bibliothek oder eines größeren Projekt Teams) mitzuteilen wo die Limitierungen liegen