Also ich habe mir in den letzten mehr als 30 Jahren folgende Dokumentationsköpfe zurecht gebastelt.
Vielleicht nimmt der ein oder andere Anfänger diese auch für sich als Vorlage.
Programm
Code: Alles auswählen
// *****************************************************************************
// ** **
// ** Programm: Testprogramm **
// ** **
// ** Unitname: FTestprg **
// ** **
// *****************************************************************************
// ** **
// ** Stellt die Oberfläche vom Testprogramm zur Verfügung. **
// ** **
// *****************************************************************************
// ** **
// ** Klassen Prozeduren : FormCreate(Sender : TObject) **
// ** FormClose(Sender : TObject; **
// ** Var CloseAction : TCloseAction) **
// ** **
// ** Private Prozeduren : ppMenue(Sender : TObject) **
// ** ppMenueClick(Sender : TMenuItem) **
// ** **
// ** Protected Prozeduren : ----- **
// ** **
// ** Public Prozeduren : ----- **
// ** **
// ** Published Prozeduren : ----- **
// ** **
// *****************************************************************************
// ** **
// ** Klassen Funktionen : ----- **
// ** **
// ** Private Funktionen : ----- **
// ** **
// ** Protected Funktionen : ----- **
// ** **
// ** Public Funktionen : ----- **
// ** **
// ** Published Funktionen : ----- **
// ** **
// *****************************************************************************
// ** **
// ** Globale Klassen : FrmTestprg : TFrmTestprg **
// ** **
// ** Globale Konstanten : ----- **
// ** **
// ** Globale Variablen : ----- **
// ** **
// ** Globale Records : grTestQuery **
// ** **
// *****************************************************************************
// ** **
// ** Aktionen: Menuepunkte : Alle Menüpunkte werden dynamisch erstellt **
// ** **
// *****************************************************************************
// ** **
// ** Hinweise : keine **
// ** **
// *****************************************************************************
// ** **
// ** aktuelle Version: 10.00.21.1231 vom 31.12.2021 **
// ** **
// *****************************************************************************
// ** **
// ** Erstellung: **
// ** **
// ** 10.00.21.1230 30.12.2021 Name des Entwicklers **
// ** **
// ** Aenderungen: **
// ** **
// ** 10.00.21.1231 31.12.2021 Name des Entwicklers **
// ** Prozedure Debug hinzugefügt **
// ** **
// ** **
// ** **
// ** **
// ** **
// *****************************************************************************
Code: Alles auswählen
// *****************************************************************************
// ** **
// ** Package: Testpackage **
// ** **
// ** Unitname: pTest **
// ** **
// *****************************************************************************
// ** **
// ** Erstellt dynamisch die Menues. **
// ** **
// *****************************************************************************
// ** **
// ** Klassen Prozeduren : FormCreate(Sender : TObject) **
// ** FormClose(Sender : TObject; **
// ** Var CloseAction : TCloseAction) **
// ** **
// ** Private Prozeduren : ppMenue(Sender : TObject) **
// ** ppMenueClick(Sender : TMenuItem) **
// ** **
// ** Protected Prozeduren : ----- **
// ** **
// ** Public Prozeduren : ----- **
// ** **
// ** Published Prozeduren : ----- **
// ** **
// *****************************************************************************
// ** **
// ** Klassen Funktionen : ----- **
// ** **
// ** Private Funktionen : ----- **
// ** **
// ** Protected Funktionen : ----- **
// ** **
// ** Public Funktionen : ----- **
// ** **
// ** Published Funktionen : ----- **
// ** **
// *****************************************************************************
// ** **
// ** Globale Klassen : FrmMenue : TFrmMenue **
// ** **
// ** Globale Konstanten : ----- **
// ** **
// ** Globale Variablen : ----- **
// ** **
// ** Globale Records : grMenue **
// ** **
// *****************************************************************************
// ** **
// ** Aktionen: Menuepunkte : Enthält alle Menüpunkte **
// ** Debug : Protokolliert die einzelnen Modulschritte **
// ** **
// *****************************************************************************
// ** **
// ** Hinweise : keine **
// ** **
// *****************************************************************************
// ** **
// ** aktuelle Version: 10.00.21.1231 vom 31.12.2021 **
// ** **
// *****************************************************************************
// ** **
// ** Erstellung: **
// ** **
// ** 10.00.21.1230 30.12.2021 Name des Entwicklers **
// ** **
// ** Aenderungen: **
// ** **
// ** 10.00.21.1231 31.12.2021 Name des Entwicklers **
// ** Prozedure Debug hinzugefügt **
// ** **
// ** **
// ** **
// ** **
// ** **
// *****************************************************************************
Code: Alles auswählen
// *****************************************************************************
// ** **
// ** Unit: UTest1 **
// ** **
// ** enthalten in Package: ---- **
// ** **
// *****************************************************************************
// ** **
// ** Stellt mathematische Berechnungen zur Verfügung **
// ** **
// *****************************************************************************
// ** **
// ** Klassen Prozeduren : FormCreate(Sender : TObject) **
// ** FormClose(Sender : TObject; **
// ** Var CloseAction : TCloseAction) **
// ** **
// ** Private Prozeduren : ----- **
// ** **
// ** Protected Prozeduren : ----- **
// ** **
// ** Public Prozeduren : ----- **
// ** **
// ** Published Prozeduren : ----- **
// ** **
// *****************************************************************************
// ** **
// ** Klassen Funktionen : ----- **
// ** **
// ** Private Funktionen : ----- **
// ** **
// ** Protected Funktionen : ----- **
// ** **
// ** Public Funktionen : Multiplikation(Wert1 : Integer; **
// ** Wert2: Integer) : Integer **
// ** **
// ** Published Funktionen : ----- **
// ** **
// *****************************************************************************
// ** **
// ** Globale Klassen : gUTest1 : TTest1 **
// ** **
// ** Globale Konstanten : Faktor : 100 **
// ** **
// ** Globale Variablen : ----- **
// ** **
// ** Globale Records : ----- **
// ** **
// *****************************************************************************
// ** **
// ** Aktionen: Multiplikation : Multipliziert Wert1 mit Wert2 **
// ** **
// *****************************************************************************
// ** **
// ** Hinweise : keine **
// ** **
// *****************************************************************************
// ** **
// ** aktuelle Version: 10.00.21.1231 vom 31.12.2021 **
// ** **
// *****************************************************************************
// ** **
// ** Erstellung: **
// ** **
// ** 10.00.21.1230 30.12.2021 Name des Entwicklers **
// ** **
// ** Aenderungen: **
// ** **
// ** 10.00.21.1231 31.12.2021 Name des Entwicklers **
// ** Prozedure Debug hinzugefügt **
// ** **
// ** **
// ** **
// ** **
// ** **
// *****************************************************************************
Code: Alles auswählen
// *************************************************************************
// ** **
// ** Prozedure: FormCreate(Sender: TObject) **
// ** **
// ** enthalten in Unit : FTestprg **
// ** enthalten im Package : ---- **
// ** **
// ** **
// *************************************************************************
// ** **
// ** Startet die Maske des Testprogrammes. **
// ** **
// *************************************************************************
// ** **
// ** Status: Klassenmodul [X] **
// ** Private [ ] Protected [ ] Public [X] Published [ ] **
// ** **
// *************************************************************************
// ** **
// ** Aktionen: Initialisierung : Initialisiert alle Variablen **
// ** **
// *************************************************************************
// ** **
// ** Hinweise : keine **
// ** **
// *************************************************************************
// ** **
// ** aktuelle Version: 10.00.21.1231 vom 31.12.2021 **
// ** **
// *************************************************************************
// ** **
// ** Erstellung: **
// ** **
// ** 10.00.21.1230 30.12.2021 Name des Entwicklers **
// ** **
// ** Aenderungen: **
// ** **
// ** 10.00.21.1231 31.12.2021 Name des Entwicklers **
// ** Neue Variablen hinzugefügt **
// ** **
// ** **
// ** **
// ** **
// ** **
// *************************************************************************
Code: Alles auswählen
// *************************************************************************
// ** **
// ** Funktion: Multiplikation(Wert1 : Integer; **
// ** Wert2: Integer) : Integer **
// ** **
// ** enthalten in Unit : UTest1 **
// ** enthalten im Package : Testpackage **
// ** **
// *************************************************************************
// ** **
// ** Multipliziert Wert1 mit Wert2. **
// ** **
// *************************************************************************
// ** **
// ** Status: Klassenmodul [ ] **
// ** Private [ ] Protected [ ] Public [X] Published [ ] **
// ** **
// *************************************************************************
// ** **
// ** Aktionen: siehe Beschreibung **
// ** **
// *************************************************************************
// ** **
// ** Hinweise : keine **
// ** **
// *************************************************************************
// ** **
// ** aktuelle Version: 10.00.21.1231 vom 31.12.2021 **
// ** **
// *************************************************************************
// ** **
// ** Erstellung: **
// ** **
// ** 10.00.21.1230 30.12.2021 Name des Entwicklers **
// ** **
// ** Aenderungen: **
// ** **
// ** 10.00.21.1231 31.12.2021 Name des Entwicklers **
// ** Prüfung auf Negativzahlen **
// ** **
// ** **
// ** **
// ** **
// ** **
// *************************************************************************
Selbstverständlich gilt trotzdem weiterhin der Satz:
Ein guter Programmierer dokumentiert immer alle sich nicht selbsterklärenden Programmzeilen!
Viel Spaß beim dokumentieren.