Einzelnen Beitrag anzeigen

Thorben77

Registriert seit: 22. Okt 2004
359 Beiträge
 
#7

Re: Destruktor löst Exception aus

  Alt 25. Apr 2006, 20:12
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*
  Mit Zitat antworten Zitat