Ich hab mich mal etwas mit der DLangExtension von Andreas befasst (
Hier zu finden). Dabei ist ein Plugin entstanden, mit dem man sehr einfach Funktionen und Prozeduren nur fürs debuggen deklarieren kann. Das spart zum einen viel Tipparbeit und macht den Code übersichtlicher, als wenn man das ganze mit $IFDEF's umsetzt.
Beispiel:
Delphi-Quellcode:
procedure DebOut;[B]DEBUGONLY[/B];
begin
Showmessage('Debug Ausgabe');
end;
Procedure TForm1.button1click(sender:Tobject);
begin
debout;
end;
Die Nachricht wird nur ausgegeben, wenn in den Compileroptionen das Symbol DEBUG definiert ist.
Normal würde das ganze so aussehen:
Delphi-Quellcode:
{$IFDEF DEBUG}
procedure DebOut;
begin
Showmessage('Debug Ausgabe');
end;
{$ENDIF}
Procedure TForm1.button1click(sender:Tobject);
begin
{$IFDEF DEBUG}
debout;
{$ENDIF}
end;
Die Benutzung geschieht, wie immer, auf eigene Gefahr. Fehler und Verbesserungen/Erweiterungen
könnt ihr gerne hier posten.