Ich habe mir die Frage jetzt ein paar Mal durchgelesen... wofür zum Geier wird die globale Variable benötigt?
Einfach die olle Variableaus der
Unit entfernen, genau wie den init/final Teil.
Wenn es so änderst, kannst du einfach A benutzen als sei es eine Variable. Mit dem Extracode hätest du es ja gleich selbst zählen können....
Delphi-Quellcode:
private
fCounted : TCountChanges;
function getA : Integer;
procedure setA(const Value : Integer);
public
property A : Integer read getA write setA;
destructor Destroy; override;
procedure AfterConstruction; override;
end;
....
procedure TForm1.AfterConstruction;
begin
inherited;
fCounted := TCountChanges.Create();
end;
destructor TForm1.Destroy;
begin
fCounted.Free();
inherited;
end;
function TForm1.getA : Integer;
begin
Result := fCounted.Variable;
end;
procedure TForm1.setA(const Value : Integer);
begin
fCounted.Variable := Value;
end;