Entwickler-Ecke

Open Source Units - retDebug - Easy Debugging ala Debug.Print


retnyg - So 30.10.05 18:18
Titel: retDebug - Easy Debugging ala Debug.Print
Bei Visual Basic gibts Debug.Print, mit dem man einfach eine Vielzahl von Werten ins DebugWindow schreiben lassen kann, ohne immer durch den Code zu steppen.

Davon inspiriert habe ich ne kleine Unit geschrieben, basierend auf WM_COPYDATA.

Das ServerProgramm hat ein Memo, in dem alle Debug-NAchrichten aus dem Client angezeigt werden.

Der Aufruf ist denkbar einfach:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
begin
   x := $DEAD;
   DebugInit(form1.handle);
   SendDebugString(edit1.Text);
   SendDebugString(inttostr(x));   
end;


download: http://krazz.net/retnyg/retDebug.zip