Instanz sich selber zerstören lassen?

[Minz]

Hallösche,

ist es möglich, dass sich eine Instanz einer Klasse selber zerstört?

Also ich erstelle sie mit create(nil).

Gruß Minz

[Motzi]

Ja.. -> Self.Free;

[Minz]

lol, danke !

[Rumpi]

Hi,

oder auch mit
FreeAndNil( Self ); Worauf du aber immer achten solltest ist:

Delphi-Quellcode:

  XYZ = class
    ...
  destructor Destroy; override; // override nicht vergessen
  
  end;

....

destructor XYZ.Destroy;
begin
  // sauber machen nicht vergessen
  inherited; // Parent destructor 
end;

sonnst wird bei Free oder FreeAndNil
nur der Default Parent Destructor gerufen und
nicht der in deiner Klasse XYZ und der
reservierte Speicher in XYZ wird nicht freigegeben!


mfg Rumpi

[SirThornberry]

haben wir nicht schon vor paar wochen festgestellt das selbst zerstören nicht geht da man sich in einer Methode befindet von dem Object was zerstört werden soll und da kommt dann so weit ich mich erinnere ein Abstract Error

[mr2]

Hallo,
mit einer class procedure sollte es auf jeden Fall funktionieren:

Delphi-Quellcode:

class procedure TIrgendwas.Machwas;
begin
  with Create(nil) do try
    MachDasEine;
    MachDasAndere;
  finally
    Free;
  end;
end;

[SirThornberry]

als ich das mal probiert hab kams zu einem fehler weil man sich ja noch in der instanz von TIrgendwas.Machwas befindet während die instanz zerstört wird

[mr2]

Hallo,

Du hast wahrscheinlich das kleine Wörtchen class übersehen.
Das bedeutet, dass die Methode wie man in C sagen würde statisch ist. Sie "hängt" an der Klasse und nicht an der Instanz, daher kann hier problemlos die Instanz freigegeben werden.
Zu beachten ist allerdings der Aufruf:
  TIrgendwas.Machwas; also immer mit dem "T" davor.
Hab' ich schon in zahlreichen Projekten so gemacht. Eignet sich vor allem bei Formularen.

[OLLI_T]

Kleiner Tipp am Rande.

Ich hab "damals" ne kleinen ComponentEditor gebastelt, mit dem man verhindern kann, dass mehr als eine Instanz einer Komponente ins Projekt geworfen werden können. Hier ein Auszug aus der Registrierungs-Unit:

Delphi-Quellcode:

uses
  DsgnIntf, SysUtils, TypInfo, Classes, Dialogs System32;

Type

  TStopEditor = class(TComponentEditor)
  private { Private-Deklarationen }
    FRemove:Boolean;
  public
    constructor Create(AComponent: TComponent; ADesigner: IFormDesigner); override;
    Procedure GetCompNames(const S: string);
  End;

  Procedure Register;

implementation

uses PicSel;

Procedure Register;
Begin
  ....
  RegisterComponentEditor(TotStopWatch32,TStopEditor);
  ....
End;

.....

// **************************************************************************
// ** TStopEditor ***********************************************************
// **************************************************************************

constructor TStopEditor.Create(AComponent: TComponent;
  ADesigner: IFormDesigner);
Var TD:TTypeData;
begin
  inherited;
  If AComponent.Owner<>NIL Then Begin
    TD.ClassType:=TotStopWatch32;
    ADesigner.GetComponentNames(@TD,GetCompNames);
    If FRemove Then Begin
      ADesigner.DeleteSelection;
      Component.Owner.RemoveComponent(Component);
    End;
  End;
end;

Procedure TStopEditor.GetCompNames(const S: string);
Begin
  If S<>Component.Name Then Begin
    Showmessage('Es ist bereits eine Stopwatch im Projekt!');
    FRemove:=TRUE;
  End;
end;

Vielleicht kann der Eine oder Andere was damit anfangen!?

Gruss

OLLI

[Minz]

versteh ich net so ganz!

Programm
Instanz:=MeineKlasse.create(nil);
Instanz.machwas;

MeineKlasse
class procedure machwas;
...
free;


so in etwa?

ach ähm @Olli ich kann da keinen Zusammenhang mit diesem Thema entdecken.