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