Erkennung Debug- oder Release- Mode

[Vbxler]

Gibt es eigentlich eine Möglichkeit, dass im Programmcode erkannt wird, ob die
Anwendung im Debug oder im Release Mode compiliert wurde?

Ich möchte gerne, dass die Anwendung, wenn sie im Debugmode erstellt ist,
auf eine andere Datenbank zugreift als im Releasemode.

Ich könnte mir natürlich ein Flag manuell setzen oder rücksetzen,
aber wenn das automatisch erkannt wird, wäre es natürlich besser.

Danke

[Michl]

Bei mir geht das so (Lazarus 1.5):
- Projekteinstellungen -> Compilereinstellungen -> rechts oben Button[...] klicken und Button [Create Debug and Release modes for new projects] klicken (es werden nun neben dem Default- auch der Release- und Debugmodus erstellt)
- den Modus "Debug" wählen (in der obere Combobox in den Projekteinstellungen)
- Projekteinstellungen -> Compilereinstellungen -> Custom Options -> Button [Definitionen ...] klicken
- jetzt kann man eine eigene Option definieren (z.B. "debug" eingeben und hinzufügen) und im Debugmodus aktivieren

Nun kann man im Code folgendes machen:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  {$IFDEF debug}
  Caption := 'Debugmodus';
  {$ELSE debug}
  Caption := 'Release- oder Defaultmodus';
  {$ENDIF debug}
end; 

[Vbxler]

Danke, das werde ich gleich mal ausprobieren.

[Vbxler]

Funktioniert bestens!

Danke für die Hilfe.