Destruktor löst Exception aus

[Thorben77]

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*