type private

[Mathias]

Bei dem Mustercode ist TVector und TFace öffentlich.
Gibt es eine Möglichkeit, TVector private zu machen ?
Ich kann TVector nicht in implemtations Teil deklarieren, da es in TFace gebraucht wird.

Code: Alles auswählen

interface
...
type
  TVector = array[0..2] of single;
 
  TFace = class(TObject)
  private
    VectorArray: array of TVector;
  end;
 
implementation
...
 

[theo]

TVector ist ja nur eine Typdeklaration. Wie soll die private sein?
Du meinst wohl nicht im interface deklariert. Ich wüsste jetzt nicht wie, aber auch nicht warum.

[wp_xyz]

Hab das noch nie probiert, aber das hat eben der Compiler akzeptiert - siehe auch http://wiki.freepascal.org/extended_class_syntax

Code: Alles auswählen

 
  TFace = class(TObject)
  private
    type
      TVector = array[0..2] of single;
    var
      VectorArray: array of TVector;
  end;
 

In meiner Praxis habe ich solche Konstruktionen allerdings nie vermisst. Bei der übertriebenen Anwendung von "private" habe ich mich früher oder später selbst ausgesperrt...

[theo]

Achso, ja. Das nennt man bei Delphi wohl "class type". Habe ich noch nie gebraucht.
http://edn.embarcadero.com/article/34324

[BeniBela]

Oder eine neue Unit erstellen, die nur TVector enthält und in der Originalunit usen.

[wp_xyz]

Oder eine neue Unit erstellen, die nur TVector enthält und in der Originalunit usen.

Aber dann ist TVector öffentlich, sonst kannst du TVector in der Originalunit ja nicht aufrufen.

[BeniBela]

Aber jemand der nur die Originalunit einbinden, kann auf TVector nicht zugreien