AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Debug Console oder ähnlich

Ein Thema von EWeiss · begonnen am 22. Okt 2010 · letzter Beitrag vom 24. Okt 2010
 
EWeiss
(Gast)

n/a Beiträge
 
#8

AW: Debug Console oder ähnlich

  Alt 23. Okt 2010, 00:03
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

Geändert von EWeiss (23. Okt 2010 um 14:21 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz