final Klassenvariable

[Jonny5K]

Hiho,

Habe eine Frage zu Delphi.
Und zwar gibt es unter Java final Variablen, welche man genau einmal zuweisen kann.
Und genau so etwas bräuchte ich für Delphi!

Hier etwas Code, damit ihr besser nachvollziehen könnt, was ich meine

Delphi-Quellcode:

type
TMyClass = class
...
private
...
FEmptyParam: OleVariant;
public
...
constructor create();
end;

implementation

constructor TMyClass .create();
begin
  FEmptyParam := VarArrayCreat([0, -1], varVariant);
end;

So in etwa soll das aussehen nur das man ab der Zuweisung im Konstruktor auf die Variable nur noch lesend zugreifen darf.

Danke

Gruß Jonny

[shmia]

Du kannst ein read-only Property benützen.
Innerhalb der Unit lässt sich die Variable aber nicht schützen.

Delphi-Quellcode:

TMyClass = class 
... 
private 
... 
FEmptyParam: OleVariant; 
public 
  property EmptyParam:OleVariant read FEmptyParam;  // READ-ONLY Property
... 
constructor create(); 
end;

[Jonny5K]

Schon mal danke für die schnelle Antwort, dachte aber eigentlich schon an einen Mechanismus, welcher die Variable in der unit schützt, naja wenns so was nit gibt, dann halt nit *g*

mfg Jonny