retDebug - Debug.Print-Ersatz für Easy Debugging

[retnyg]

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

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