---

Hej

Vi kender alle dette:

TMinKlasse = Class
Public
Constructor Create;
Private
......
Protected
....
end;

Men hvordan erklæres en variabel af typen Static, jeg kender erklæringen fra
C++, men den hjælper ikke meget her.

Med venlig hilsen

Søren Hansen

---

TMinKlasse = class
private
function GetMyVar: Integer;
procedure SetMyVar(const Value: Integer);
public
property MyVar: Integer read GetMyVar write SetMyVar;
end;

implementation

var
MyVarStatic: Integer;

function GetMyVar: Inteeger;
begin
Result := MyVarStatic;
end;

procedure SetMyVar(const Value: Integer);
begin
MyVarStatic := Value;
end;



"Søren Ove Hansen" <henrietthe.soeren@mail.tele.dk> wrote in message
news:onI76.9280$W81.130918@twister.sunsite.dk...
> Hej
>
> Vi kender alle dette:
>
> TMinKlasse = Class
> Public
> Constructor Create;
> Private
> ......
> Protected
> ....
> end;
>
> Men hvordan erklæres en variabel af typen Static, jeg kender erklæringen
fra
> C++, men den hjælper ikke meget her.
>
> Med venlig hilsen
>
> Søren Hansen
>
>