Kod: Tümünü seç
ISafe = Interface
procedure Lock;
procedure UnLock;
end;
TCache = class
public
procedure xyz;
end;
TQueue = class(TCache, ISafe)
private
FSafe: TCriticalSection;
public
procedure abc;
procedure Lock;
procedure UnLock;
end;
bunun gibi bir cok class birbirlerinden türeyecek olursa, her defasinda TCriticalSection'un ihtiyac oldugu yerde yeni bastan tanimlayip create etmek mi daha uygun düser, yoksa TCache'de Lock prosedürünü kullanmadigim halde
Kod: Tümünü seç
TSafe = class(TInterfacedObject, ISafe)
private
FSafe: TCriticalSection;
public
procedure Lock;
procedure UnLock;
end;
TCache = class(TSafe)
public
procedure xyz;
end;
TQueue = class(TCache)
public
procedure abc;
end;
CriticalSection'a ihtiyacim olmayan bir Class'i CriticalSection'u barindan bir class'dan türetmek ne kadar mantikli?
CriticalSection'u her ihtiyac duydugum alt siniflarda tekrardan tanitmak ne kadar mantikli?