Delphi geri aramaları? işlev veya yordamı yürütmek <p><code>procedure waitandcall(time,@MyProcedureOrFunction)</code></p> <p></p> oluşturduğum:

Question

Ben böyle bir şey uygulamak mümkün olup olmadığını bilmek istiyorum?

Geri arananlar olarak adlandırıldığından emin değilim.

Answer 1

Bu kesinlikle mümkündür ve @ işlevinizden önce bile gerekmez. Aslında tüm olaylar buna dayanmaktadır. senin prosedürün imza sürece Sonra tip yerde senin prosedür kullanabileceğiniz fonksiyon/prosedür

type 
    TMyProc = procedure(Param1: Integer); 

için bir tür tanımlayarak

Başlangıç ​​senin tipini eşleşir.

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

:

yerine düz prosedür/işlevin bir nesne yöntemini kullanarak ediyorsanız, böyle bir şey kullanabilirsiniz içinden senin geri arama aramak için of object

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

kullanmak gerekir

Answer 2

Geri aramalar bunlara tam olarak ne denir ve Delphi tamamen bunları oluşturma ve çağırmak için yeteneğine sahiptir. Bunlar ayrıca işlev işaretçisi olarak bilinir. Dokümantasyonda Procedural Types'a bakın.