[BDS2006] Create wird nicht versteckt?

[DevilsCamp]

Ich habe folgenden Code:
Unit1:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.FormCreate(Sender: TObject);
var
  test: TTest;
begin
  test := TTest.Create;
  Sleep(1000);
  test.Free;
end;

end.

Unit2:

Delphi-Quellcode:

unit Unit2;

interface

uses Windows, Classes;

type
  TTest = class(TObject)
  private
    { private-Deklarationen }
    constructor Create;
  protected
    { protected-Deklarationen }
  public
    { public-Deklarationen }

  published
    { published-Deklarationen }
  end;

implementation

{ TTest }

constructor TTest.Create;
begin
  inherited;
end;

end.

Theoretisch sollte der Konstruktor von TTest in Unit1 nicht mehr sichtbar sein. Ich kann aber den Code ohne Probleme compilieren. Warum?

[Bernhard Geyer]

Er findet ja den Construktor der Basisklasse und wird diesen verwenden.

[Muetze1]

AFAIR kann man keine Methoden mit einer höheren Sichtbarkeit in ihrer Sichtbarkeit verringern. Immer nur erhöhen.

[Bernhard Geyer]

Zitat von Muetze1:

AFAIR kann man keine Methoden mit einer höheren Sichtbarkeit in ihrer Sichtbarkeit verringern. Immer nur erhöhen.

Vor allem dann nicht wenn die Methode der Basisklasse keine Virtuelle/Dynamische Methode ist und damit kein Overloading durchgeführt wird.

[DevilsCamp]

Dann sind die ganzen Tipps, die sowas vorschlagen also für'n A.... ...


Aber wie könnte ich den Konstruktor verstecken, damit ich z.B. eine Klasse schreiben kann, die nur unter bestimmten Umständen (z.B. aus einer anderen Klasse heraus) instanziiert werden kann?

[mkinzler]

Deklariere sie im Interface-Teil der Unit (die andere Klasse muß sich dann in der selben Unit befinden)

[DevilsCamp]

Zitat von mkinzler:

Deklariere sie im Interface-Teil der Unit (die andere Klasse muß sich dann in der selben Unit befinden)

Das allerdings würde dazu führen, dass ich diese Klasse nicht als private Member-Klasse verwenden kann.

[uligerhardt]

Zitat von DevilsCamp:

Aber wie könnte ich den Konstruktor verstecken, damit ich z.B. eine Klasse schreiben kann, die nur unter bestimmten Umständen (z.B. aus einer anderen Klasse heraus) instanziiert werden kann?

Zur Compilezeit gar nicht, siehe hier.

Uli.

[DevilsCamp]

Zitat von uligerhardt:

siehe hier.

So mache ich es bisher.
Habe aber gehofft, es gibt eine Möglichkeit ohne Exception...