Debug Console oder ähnlich

[EWeiss]

Zitat von mjustin:

OutputDebugString ist eine Möglichkeit, die auch in der Delphi IDE unterstützt wird. Man kann auch externe Anwendungen zur Anzeige der Debug-Nachrichten nutzen.

Ich könnte ja unter Parameter mein Argument übergeben von meinem VBTracer.
TRACEMODE = 1

Die Frage wäre dann nur wie ich in Delphi eine bedingte Compilierung durchführen kann.
Hier mal der Quelltext den ich in meinem Programm verwende um mit dem Tracer zu kommunizieren.

Code:

Option Explicit

...
Public Sub Assert(ByVal condition As Boolean)

End Sub

#End If

Um was es mir geht ist diese Abfrage

Code:

#If TRACEMODE = 1 Then

Welche die Bedingte Compilierung auslöst..
Also wie könnte ich so einen Schalter innerhalb Delphi setzen..

Die Übersetzung des Quelltextes spielt keine Rolle das ist ein leichtes für mich.

Die Message die gesendet wird sieht in etwa so aus.

Code:

Trace "Form_Load Error", "", "Error", err.Number, err.Description

Und findet nur verwendung wenn der Schalter gesetzt sowie das Handle vom Tracer gefunden wird.

Ansonsten springt er in Assert rein ... tut dann quasi nichts.

Ok hab die Schalter gefunden..
{$IFDEF ..}
{$ELSE}
{$ENDIF}

Werd mich dann mal drangeben.

gruss