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
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