Bedingte Kompilierung – Kniffliger Fall

[Andreas13]

Danke Himitsu,
werde auch Deine Lösung ausprobieren!
Grüße, Andreas

[Andreas13]

Hallo,
noch einmal herzlichen Dank für Eure tollen Tipps!
Ich kann beide Möglichkeiten sehr gut verwenden:

Delphi-Quellcode:

IF IsLibrary Then
 ...
End;

{$IFDEF MitFehlermeldungen}
  Fehlermeldung('...');
{$ENDIF}

Habe wieder etwas dazugelernt!
Grüße, Andreas

[himitsu]

Zu bedenken ist nur, dass Beides natürlich etwas "unterschiedlich" funktioniert.

IsLibrary wird zur Laufzeit ausgewertet und das IFDEF schon im Compiler.
Also bei IsLibrary ist dann immer auch der ungenutzte Code mit im Compilat.

Aber so lange es nicht stört, ist es ja fast Egal.
Und dat bissl mehr Speicher kostet ja och nix mehr.
https://www.computerbase.de/2020-07/...-tb-ssd-preis/

[Andreas13]

Ja natürlich, Himitsu! Ich verwende Eure Vorschläge unterschiedlich:
1):
Zum Debuggen von Multipräzisions-Strukturen (MPA) brauche ich an sehr vielen Stellen diverse Print-Anweisungen für MPA-Variablen, MPA-Vektoren und MPA-Matrizen. Wenn ich auch nur eine vergesse auszukommentieren, stürzt die Excel-DLL ab: Excel ist ja keine Console-Anwendung und kennt kein WriteLn(...‘); . Dafür ist IsLibrary als "Lebensversicherung" hervorragend geeignet: z.B.

Delphi-Quellcode:

Print_MPA_Matrix(..)
  IF IsLibrary Then
    Exit;
  End;
  ...
  WriteLn(…);
  ...
End;

2):
Deinen ursprünglichen Vorschlag zur Unterdrückung der Fehlermeldungen in Excel:

Delphi-Quellcode:

{$IFDEF MitFehlermeldungen}
  Fehlermeldung('...');
{$ENDIF}

konnte ich für meine Zwecke etwas modifiziert leichter einsetzen:

Delphi-Quellcode:

{$IFDEF OhneFehlermeldungen}
  // ---> Nur für die Excel-DLL‘s
{$ELSE}
   Fehlermeldung('...');
{$ENDIF}

So hatte ich lediglich in 8 DLL's die Projektoption "OhneFehlermeldungen" einzustellen gehabt. Das war in meinem Fall zweckmäßiger, sonst hätte ich die Projekt-Optionen in sehr vielen Berechnungs-Units ändern müssen.
Dein Vorschlag hat für mich den Vorteil, daß der Text der Fehlermeldungen gar nicht in die DLL gelinkt wird.
Danke nochmal!
Ich habe die Möglichkeit der von Dir genannten globalen vererbbaren Projektoption "Alle Konfigurationen - Alle Plattformen" zu meiner Schande nicht gekannt.

Viele Grüße
Andreas

[himitsu]

IsConsole ?

Bzw. {$IFDEF CONSOLE} , wenn die Anwendung als Console {$APPTYPE CONSOLE} kompiliert wird.



Für WriteLn einfach die Fehlerbehandlung deaktivieren, also {$I-} oder verständlicher {$IOCHECKS OFF} ,
oder ohne jegliche Fehlerprüfung selber schreiben.

Delphi-Quellcode:

program Project9;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Winapi.Windows;

type
  OEMString = type AnsiString(CP_OEMCP);  // wenn es nur ASCII ist, dann geht auch AnsiString;
var
  S: OEMString;
  H: THandle;
  X: Cardinal;
begin
  H := GetStdHandle(STD_OUTPUT_HANDLE);
  S := 'hallo'#10;
  WriteFile(H, S[1], Length(S), X, nil);
  WriteFile(H, S[1], Length(S), X, nil);
  Sleep(5000);
end.

[Andreas13]

Danke Himitsu. Bis gestern habe ich weder System.IsLibrary noch  System.IsConsole gekannt.
Grüße, Andreas

[Uwe Raabe]

Dann werfe ich doch gleich noch ein paar Stichworte in den Ring - nur für den Fall: IsMultiThread , ModuleIsLib , ModuleIsPackage und ModuleIsCpp .