tag:blogger.com,1999:blog-911701488457280480.post1530553430116915287..comments2022-04-10T22:23:54.720-07:00Comments on Fabricio DEV: Singleton em Delphi utilzando interfacesFabricio Colombohttp://www.blogger.com/profile/06951517260984102149noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-911701488457280480.post-34291327422265711852012-02-10T06:39:21.530-08:002012-02-10T06:39:21.530-08:00Olá Jair, obrigado pelo comentário.
Na verdade é ...Olá Jair, obrigado pelo comentário.<br /><br />Na verdade é possível sim declarar propriedades em interfaces, só não é possível declarar atributos, tendo obrigatoriamente que utilizar getter e setter.<br /><br />Exemplificando, a declaração da interface ficaria assim:<br /><br />type ISingleton = interface ['{F5B00272-536A-4C30-AB19-54496B106C7C}'] function GetAlgumaPropriedade: String; procedure SetAlgumaPropriedade(const Value: String); procedure FacaAlgo; property AlgumaPropriedade: String read GetAlgumaPropriedade write SetAlgumaPropriedade; end;<br /><br />E os métodos GetAlgumaPropriedade e SetAlgumaPropriedade seria implementados normalmente na classe concreta, que teria também o atributo FAlgumaPropriedade, por exemplo.<br /><br />type<br /> TSingletonInterface = class(TInterfacedObject, ISingleton)<br /> private<br /> FAlgumaPropriedade: String;<br /> function GetAlgumaPropriedade: String;<br /> procedure SetAlgumaPropriedade(const Value: String);<br /> public<br /> procedure FacaAlgo;<br /> end;<br /><br />AbraçosFabricio Colombohttp://profiles.google.com/fabricio.colombo.mvanoreply@blogger.comtag:blogger.com,1999:blog-911701488457280480.post-50255574957591705402012-02-09T07:28:29.519-08:002012-02-09T07:28:29.519-08:00O ruim é que não tem como usar propriedades neste ...O ruim é que não tem como usar propriedades neste modelo.Jairnoreply@blogger.com