Klassenvariable

[Mario.Noack]

Hallo,<p>
neulich fanden wir in C++ eine Deklaration einer Klassenvariablen.:<br>
class Test<br>
{privat:<br>
static long nWert;<br>
...<p>
Kann man sowas auch in Delphi umsetzen? Die <b>class procedure</b> habe ich ja gefunden, aber mehr leider nicht.<p>
Schöne Grüße, Mario Noack

[Hagen Reddmann]

<pre>

unit xyz;<br>

uses ....;<br>

type
TMyClass = class
private
function GetStatic: Integer;
procedure SetStatic(Value: Integer);
public
property StaticMember: Integer read GetStatic write SetStatic;
end; <br>

implementation<br>

var
FMyClassStatic: Integer = 0;<br>

function TMyClass.GetStatic: Integer;
begin
Result := FMyClassStatic;
end;<br>

procedure TMyClass.SetStatic(Value: Integer);
begin
FMyClassStatic := Value;
end;

</pre>

Interessanterweise unterscheidet sich obiger Weg im Datenhandling und Speicherung NICHT von seinen C++ Vetter'n.<br>

Gruß Hage