Zitat von
3_of_8:
Und was den Destruktor betrifft, so ist der atm mein Hauptproblem. Und die TPort
-Instanzen sind dann zwar unschön, weil "Speichermüll", aber trotzdem nicht für die InvalidPointer
-Exception verantwortlich, oder?
Selbst dann soltest Du sie freigeben:
Delphi-Quellcode:
TModule = class(TGraphicControl)
public
destructor Destroy; override;
end;
...
destructor TModule.Destroy;
var
I: Integer;
begin
for I := Length(FInputPorts) - 1 downto 0 do
FInputPorts[I].Free;
for I := Length(FOutputPorts) - 1 downto 0 do
FOutputPorts[I].Free;
inherited Destroy;
end;
Das sollte Dich wohl nicht überfordern
.
Zitat von
3_of_8:
Das ist aber nicht gerade guter Stil...
*zustimm*