FastMM log File

[Surrounder]

ich gebe das meiner Meinung nach auch wieder richtig frei, und zwar im destructor von TCLStation

Delphi-Quellcode:

destructor TCLStation.dCLStation();
begin
   if Assigned( wellendat ) then begin
      wellendat.Destroy;
      wellendat := nil;
   end;
end;

und die Klasse TCLStation wird in der Klasse TCLAnlage erzeugt

Delphi-Quellcode:

constructor TCLAnlage.CLAnlage( );                                    ;
begin
         ...
   for i := 0 to dat.Anzahlstationen do begin                                    // Erzeugen der Klassenobjekte TCLStationen
      Station[i] := TCLStation.CLStation( i );
   end;
end;

und auch wieder frei gegeben

Delphi-Quellcode:

destructor TCLAnlage.dCLAnlage( );                                    
begin
         ...
   for i := 1 to dat.Anzahlstationen do begin                                    // Zerstören der Klassenelemente TCLStationen
      if Station[i] <> nil then begin
         Station[i].dCLStation;
         Station[i] := nil;
      end;
   end;
end;