Thema: Delphi Performance-Optimierung

Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#16

AW: Performance-Optimierung

  Alt 18. Jul 2012, 06:23
Heiko meinte wohl, daß Du statt Deiner Variable eine Property nehmen könntest, im Setter der Property könntest Du gegf. ein Event auslösen,also etwas in der Art ....

Delphi-Quellcode:
property MyVar:Integer read FMyVar Write SetMyVar;
property OnChange: TNotifyEvent read FOnChange write FOnChange;


....

Procedure TK.SetMyVar(Value:Integer);
var
 lValue:Integer;
begin
   lValue := Value;
   FMyVar := Value;
   if irgendwas(lValue,FMyValue) and Assigned(FOnChange) then FOnChange(Self);
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat