Mein Programmierstyl

[Keldorn]

Hallo

ich würde außerdem noch das AType ändern.

Delphi-Quellcode:

type TSinnvollerNameTyp=(SNT_TCPSERVER,SNT_Profiles,SNT_Anwendungsklassen);

...

procedure Free_Classes(AType:TSinnvollerNameTyp); 

...

Aufruf:
  Free_Classes(SNT_TCPSERVER); 
  Free_Classes(SNT_Profiles); 
  Free_Classes(SNT_Anwendungsklassen);

Namensgebung mußt du halt noch anpassen, dass läßt sich dann aber wesentlich einfacher lesen als 1,2,3 und mit case kannst du genauso arbeiten und du sparst dir Kommentare wie

Delphi-Quellcode:

  // AType 
  // 1 :: TCP SERVER 
  // 2 :: Profiles

Mfg Frank