Dafür gibt es doch die
Assert-Anweisung !!
Damit stellt man sicher, dass Ein- und Ausgabeparameter innerhalb gültiger Limits liegen.
Und wenn das Programm gereift ist und ohne Fehler läuft, kann man den Ballast ganz einfach in den Projektoptionen abschalten.
Ich sehe immer wieder grössere Projekte ohne eine einzige Assert-Anweisung.
Dementsprechend schlecht ist dann meist auch die Software Qualität.
Beispiel für Assert-Verwendung:
Delphi-Quellcode:
procedure ResizeForm(form:TCustomForm; x,y : integer);
begin
Assert(Assigned(form)); // Objektzeiger sollte man immer prüfen
Assert(x > 0, 'ResizeForm: x out of range'); // man kann zusätzlichen Text angeben
Assert(y > 0);
// und hier geht der normale Code los
..