Performance-Optimierung

[TiGü]

Mal OT, aber:
http://woerter.germanblogs.de/archiv...berholspur.htm

[VkPenguin]

Bin nun mit allem fertig geworden. Es brauch zwar immer noch ein Weilchen für die Berechnung, aber dank eurer Hilfe ist es um gut das zehnfache schneller :)

Ein Problem habe ich dabei aber noch: Ich habe nun eine Variable (Boolean), die an vielen Stellen des Programms ihren Wert verändern kann. Falls der Wert sich ändert, soll eine Procedure aufgerufen werden. Ich könnte natürlich einfach hinter jede Stelle an der das Passiert eine Abfrage schreiben, aber bei Buttons z.B. ist es ja auch nicht nötig, selbst eine Abfrage nach einen OnKlick-Event oder ähnlichem einzufügen. Gibt es sowas? Habe bereits danach gesucht, aber nichts gefunden - wenn man nicht weiß, wie es heißt...

[hoika]

Hallo,

statt variable ein property benutzen mit einer Set-Methode.


Heiko

[p80286]

[OT]
@TiGü
Es handelt sich hierbei ganz klar um die Standarte die einen Wert annimmt.
[/OT]

Gruß
K-H

[VkPenguin]

@hoika: Danke, das scheint mir der richtige Weg zu sein. Ich hab mal danach gesucht und fand besonders das und das kommt dem ziemlich nahe, was ich suche. Trotzdem funktioniert es noch nicht so ganz. Ich habe auch noch nicht wirklich verstanden, woher der Compiler wissen soll, welchen "trigger" mein Event benutzt. Bei mir sieht das testweise im Moment wie folgt aus, irgendwas scheint aber noch nicht zu stimmen:

Delphi-Quellcode:

  ...

 VAR FBerechnung: Boolean;
 VAR fOnChange: TNotifyEvent;
   public
    { Public-Deklarationen }
   property OnChange: TNotifyEvent read FOnChange write FOnChange;
   property Berechnung:Boolean read FBerechnung write FBerechnung;
   procedure BerechnungOnChange(Sender:TObject);
   ...
  end;

...

implementation

{$R *.dfm}

Procedure TForm1.BerechnungOnChange(Sender:TObject);
Begin
ShowMessage('TEST!');  //TEST
End;

...

[Bummi]

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;

[VkPenguin]

Ach so, dann hab ich das missverstanden. Danke euch vielmals für eure Hilfe!:thumb: