Warten auf Ende eines Events

[Uwe Stachel]

Hallo,

ich rufe in einer Funktion "GetData" eine Berechnungsroutine "Calculate" einer Fremdkomponente auf, die in einem Ereignis OnCalculated das Ergebnis zurückliefert. Ich möchte aber gerne als Ergebnis der Funktion "GetData" dieses Berechnungsergebnis zurückgeben. Dazu müsste ich die Ausführung des Programms nach dem Aufrufen der Berechnungsfunktion "Calculate" solange anhalten, bis mir durch das Beenden des Ereignisses OnCalculated das Ende der Berechnung signalisiert wurde und ich deren Ergebnisse habe. Kann mir jemand sagen wie man so etwas realisieren kann?

Vielen Dank!

Gruß
Uwe

[shadows]

Du kannst folgendes machen.
Du definierst eine Globale variable. Z.B. CalcDone als boolean.
Dann schreibst du in die Funktion OnCalculated

CalcDone := true;

Anschliessend schreibst du in deiner Funktion, die die Berechnung aufruft:

Fremdkomponente.Calculate;
while not CalcDone then
Application.ProcessMessages;

result:=Fremdkomponente.Ergebnis

[Uwe Stachel]

Vielen Dank