Bir üst sınıftaki bir işlev/prosedürün Delphi (2007) alt sınıfında geçersiz kılınmasını nasıl engellerim?Bir fonksiyonun Delphi üzerinden geçersiz kılınması durdurulması
Değiştirilememesi için işaretlemek istiyorum, sanırım son bir anahtar kelime var ama hayatımın belgelerini bulmamaya gerek yok, bu yüzden ihtiyacım olanın% 100 emin değilim.
Anahtar kelimenin düşündüğünüz gibi final olduğunu. http://dn.codegear.com/article/34324 ve http://blogs.teamb.com/rudyvelthuis/2005/05/13/4311'a bakın. Ayrıca, herhangi birinden miras almayı engellemek için sınıfınızı mühürlü olarak işaretleyebilirsiniz. 7'den daha yüksek bir Delphi sürümüne gereksiniminiz vardır.
Haklısınız - bu "son". Bu snippet gösteriyor. (Marco Cantu kitaplarının birinden)
type
TDeriv1 = class (TBase)
procedure A; override; final;
end;
TDeriv2 = class (TDeriv1)
procedure A; override; // error: "cannot override a final method"
end;
Derleme verir:
[Pascal Error] Unit1.pas(11): E2352 Cannot override a final method
biri beni şaşırttı şey: Bu özellik Win32 Delphi desteklenir, sadece Delphi .NET
için