Debug Console oder ähnlich

Delphi-Quellcode:

			{$IFDEF TRACEMODE = 1}

function FindTraceWindow: Integer;

{$ENDIF}

Habe es jetzt mal übersetzt mit Fehler die kommen noch weg wenn ich es richtig debugen kann.

Delphi-Quellcode:

			unit uTracer;

interface

uses Windows,

     Messages,

     Forms,

     Classes,

     Variants,

     SysUtils;

.

Der aufruf würde so erfolgen

Delphi-Quellcode:

			SetLength(mytest,3);

mytest[0] := 'BASSVIS_Init '; mytest[1] := GlobalVisInit; mytest[2] := MainHandle;

Trace(mytest);

Wie gesagt ich komme nur in die untere Trace procedure hinein..
sollte aber die obere sein

wenn ich es jetzt so mache wie du vorgeschlagen hast.

Delphi-Quellcode:

			{$IFDEF TRACEMODE = 1}

procedure Trace(args : array of Variant);

begin

   If (DoTrace) Then

      SendTraceMessage(args);

end;

{$ENDIF}

nicht genügend forward .. blablabla
bei der oben declarierten procedure um sie öffentlich zu machen

gruss