callback Delphi?

Question

Vorrei sapere se è possibile implementare qualcosa di simile:

procedure waitandcall(time,@MyProcedureOrFunction)

cui eseguire la funzione o la procedura che ho creato?

Non sono sicuro che vengano chiamati callback.

Answer 1

È assolutamente possibile e non è nemmeno necessario @ prima della funzione.

In realtà, tutti gli eventi si basano su questo.

Inizia definendo un tipo per la funzione/procedura

type 
    TMyProc = procedure(Param1: Integer); 

Quindi è possibile utilizzare il procedimento di tipo ovunque, a patto che la firma del procedimento corrispondente al tipo.

Se stai usando un metodo di oggetto invece di una procedura/funzione normale, è necessario utilizzare of object

type 
    TMyMethod = procedure(Param1: Integer) of object; 

Per chiamare la richiamata dal di dentro, si può usare qualcosa di simile:

procedure DoAndCallBack(MyProc: TMyProc) 
begin 
    MyProc(1); 
end; 

Answer 2

I callback sono esattamente ciò che vengono chiamati e Delphi è in grado di creare e chiamarli entrambi. Sono anche noti come puntatori di funzioni . Vedere Procedural Types nella documentazione.