Override von Konstanten im Objekt - Alternative?

[bernau]

Da habe ich auch schon dran gedacht.

Wobei das natürlich unnötigen Code erzeugt. Im Beispiel nicht ist es viel. Aber es ist ja nur ein Beispiel. Da sollen zukünftig mehrere abgeleitete Objekte vorkommen und mehrere Konstanten im Objekt. Das macht den Code unübersichtlich.

Aber danke für die Idee!

[EdAdvokat]

warum kann ich die Methode MachwasmitTestvalue auch nach der Freigabe von ObjectA aufrufen?

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var ObjectA:TObjectA;
begin
  ObjectA := TObjectA.Create;
  try
    lblA.Caption:=ObjectA.testvalue;
    //ObjectA.MachWasMitTestValue;
  finally
    ObjectA.Free;
  end;
  ObjectA.MachWasMitTestValue;
end;

eigentlich gehört sie doch in den try... finaly-Abschnitt, wie auskommentiert dargestellt.

[bernau]

Zitat von EdAdvokat:

warum kann ich die Methode MachwasmitTestvalue auch nach der Freigabe von ObjectA aufrufen?

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var ObjectA:TObjectA;
begin
  ObjectA := TObjectA.Create;
  try
    lblA.Caption:=ObjectA.testvalue;
    //ObjectA.MachWasMitTestValue;
  finally
    ObjectA.Free;
  end;
  ObjectA.MachWasMitTestValue;
end;

eigentlich gehört sie doch in den try... finaly-Abschnitt, wie auskommentiert dargestellt.

Ähm. Deinen Post verstehe ich nicht. Ist der Code von dir, oder von einem ggf. gelöschten Post?

Natürlich gehört die Anweisung in den Try...finally Block und muss aufgerufen werden bevor das Objekt wieder freigegeben wird.

Wenn es doch funktioniert, ist es Zufall, weil der Speicherbereich, in dem sich das instanzierte Objekt befunden hatte, noch nicht überschrieben wurde.

[EdAdvokat]

ich habe einfach mit dem Beispiel von Uwe Rabe gespielt und folgenden code vervollständigt:

Delphi-Quellcode:

unit uMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    lblA: TLabel;
    lblB: TLabel;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Type
  TObjectA = class
  strict private const
    cTestValue = 'aaa';
  public
    Function testvalue: String; virtual;
    Procedure MachWasMitTestValue;
  end;

  TObjectB = class(TObjectA)
  strict private const
    cTestValue = 'bbb';
  public
    Function testvalue: String; override;
  end;

procedure TObjectA.MachWasMitTestValue;
begin
  ShowMessage(testvalue);
end;

function TObjectA.testvalue: String;
  begin
    Result := cTestValue;
  end;

  function TObjectB.testvalue: String;
  begin
    Result := cTestValue;
  end;

procedure TForm1.btn1Click(Sender: TObject);
var ObjectA:TObjectA;
begin
  ObjectA := TObjectA.Create;
  try
    lblA.Caption:=ObjectA.testvalue;
    //ObjectA.MachWasMitTestValue;
  finally
    ObjectA.Free;
  end;
  ObjectA.MachWasMitTestValue;
end;

procedure TForm1.btn2Click(Sender: TObject);
var ObjectB: TObjectB;
begin
  ObjectB:=TObjectB.create;
  try
    lblB.Caption:=ObjectB.testvalue;
    ObjectB.MachWasMitTestValue;
  finally
    ObjectB.free;
  end;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  close;
end;

end.

Dann habe ich wie geschrieben die Methode MachwasmitTestValue versehentlich nach der Freigabe des ObjectA aufgerufen und es geht. Es geht wie es gehen soll innerhalb des try...finaly-Blocks, aber ach Wunder: auch hinter diesem, aber warum?

[Der schöne Günther]

Zitat von EdAdvokat:

Es geht wie es gehen soll innerhalb des try...finaly-Blocks, aber ach Wunder: auch hinter diesem, aber warum?

Das ist als würde man fragen warum es immer klappt wenn man bei grün über die Ampel fährt, aber es die letzten beiden male auch keinen Zusammenprall gab als man bei rot drüber fuhr. Das Freigeben eines Objekts löscht seine Daten nicht zwangsläufig aus dem Speicher. Es gibt sie "zur weiteren Verwendung frei". Es kann klappen. Schreibst du deine Prozedur ein wenig anders klappt es vielleicht schon nicht mehr.

Lange Rede, kurzer Sinn: Tu es nicht

[EdAdvokat]

na gut, Ich fahre also immer ordentlich über die Kreuzung. War ja nur mal so ein Gespiele mit dem Beispiel. Danke

[Bernhard Geyer]

Bau mal in deinem Testprogramm FastMM4 (https://github.com/pleriche/FastMM4) bzw. aktiviere über Compilerdefines die Checks in dem in Delphi (abgespeckten) FastMM4.
Dann wird entsprechend Meckern das du versuchst auf ein freigegebenes Objekt zuzugreifen.