Das ist so mein aktuelles Muster:
Delphi-Quellcode:
(**FNSFI*Firma/Person*Projektkennung*Dateikennung*Status*Hash** )
(**RF*nötigeDatei*...****************************************** )
(**SF*dazugehörigeDatei*Hash*...******************************* )
( )
( Copyright (c) ... )
( )
( Project Projektname - Zusatz )
( Filename Dateiname [Originaldateiname] )
( Version Version )
( Date Datum )
( URL Downloadseite )
( )
( Password Passwort )
( )
(************************************************************** )
( )
( Source(s): )
( )
( Name [Nickname] Homepage eMail )
( )
( >>> more information before the corresponding code sections )
( >>> {** name(s) - info **} )
( )
(***************************************************************)
Wobei da nicht genutztes auch weggelassen wird und sowas wie 'ne History/ChangeLog würde dann darunter als eigener Block kommen (nach der Zeile "
Unit xxx;"), aber da ich eh nie mit solchen Dingen hinterher komme, gibt's die meistens nicht.
Es ist so gestaltet, das es auch "relativ" leicht von 'nem Programm eingelesen werden kann ... 's macht sich halt gut, wenn man die verschiedenen Versionen nicht selber Verwalten muß und ein Überblick welche Datei von Welcher benötigt wird ist auch schon mal ganz praktisch ^^
Hier ma so'n Aktueller.
Delphi-Quellcode:
(**FNSFI*FNSEnt*GEN*MEMORY*USE*1Pval1JdxO%************************** )
(**RF*VERSION*.CONSTS*TYPES*THREAD*INIT*SYSTEM*RESOURCES*BINARY***** )
(**RF*MATHB*FORMS*MSC.WINERROR************************************** )
( )
( Copyright (c) 1997-2006 FNS Enterprize's™ )
( 2003-2006 himitsu @ Delphi-PRAXiS )
( )
( Project Generals )
( Filename FNS_Memory.pas )
( Version v2.1 )
( Date 02.05.2006 )
( )
(******************************************************************* )
( )
( Source(s): )
( )
( Pierre le Riche [url]http://fastmm.sourceforge.net[/url] [email]plr@psd.co.za[/email] )
( )
( >>> more information before the corresponding code sections )
( >>> {** name(s) -- info **} )
( )
(********************************************************************)