Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Destruktor löst Exception aus

    Delphi
    by Thorben77, 25. Apr 2006
  Selbst dann soltest Du sie freigeben:
  
  TModule = class(TGraphicControl)
  public
  destructor Destroy; override;
  end;
  
  ...
  
  destructor TModule.Destroy;
• Forum: Object-Pascal / Delphi-Language

  Re: Destruktor löst Exception aus

    Delphi
    by Thorben77, 25. Apr 2006
  Außerdem musste Du alle Klasseninstanzen, die Du im Konstruktor und anderswo erstellst, im Destruktor wieder freigeben; konkret meine ich die TPort-Instanzen in Deinem Port-Array, die Du hier erstellst :wink: :
  
  for I:=1 to n do
  FInputPorts:=TPort.Create(Compute,1,Rect(
  ini.ReadInteger(CN,'Input'+inttostr(I)+'Left',0),
  ini.ReadInteger(CN,'Input'+inttostr(I)+'Top',0),
  ...