liege ich richtig mit dem OOP-Versuch

[Fritzew]

Hallo

Es ist eine ganz schlechte Idee den Destructor Free zu nennen.
Free ist eine Methode von TObject die überprüft ob Self <> nil ist und dann den destructor Destroy aufruft.


Benenne Deinen Destructor um zu:
Interface

destructor Destroy; override;
Implementation

Delphi-Quellcode:

destructor TFlaecheninh.Destroy;
begin
  inherited Destroy;
end;

Dein Code ruft sich selber auf in Deinem destructor Free!!!