Article View: pl.comp.lang.delphi
Article #334779Re: Jak przechowywać Interfejsy?
From: konsul41
Date: Thu, 12 Jan 2012 12:17
Date: Thu, 12 Jan 2012 12:17
26 lines
1815 bytes
1815 bytes
Nie wiem czy dobrze zrozumiałem.
TListaObiektow = TDictionary<String,IObiekt>;
Implementacje interfejsów
TObiekt = class(TComponent,IObiekt)
TEtykieta= class(TComponent,IObiekt)
...
Urzycie:
var Obiekt : IObiekt;
ob : IObiekt;
begin
ListaObiektow:=TListaObiektow.Create();
Obiekt:=TEtykieta.Create;
ListaObiektow.AddOrSetValue('Etykieta',Obiekt);
Obiekt:=TEtykieta.Create;
ListaObiektow.AddOrSetValue('TCaptionEdit',Obiekt);
ShowMessage(IntToStr(ListaObiektow.Count)); -> pokazuje że są 2 obiekty
end;
Czy te linie mogę przenieść do dll i zrobić z tego metody fabrykujące?
Obiekt:=TEtykieta.Create;
Obiekt:=TEtykieta.Create;
Czy to ma szanse działać prawidłowo?
Technical Details
Message-ID:
<4f0ecf67$0$1257$65785112@news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.glorb.com!border3.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx02.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mailReferences:
<4f0eaf3a$0$1258$65785112@news.neostrada.pl> <jemd56$lt5$1@inews.gazeta.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.glorb.com!border3.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx02.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail From: <konsul41@wp.pl> Newsgroups: pl.comp.lang.delphi References: <4f0eaf3a$0$1258$65785112@news.neostrada.pl> <jemd56$lt5$1@inews.gazeta.pl> Subject: Re: Jak przechowywać Interfejsy? Date: Thu, 12 Jan 2012 13:17:43 +0100 MIME-Version: 1.0 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.5931 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 Lines: 27 Message-ID: <4f0ecf67$0$1257$65785112@news.neostrada.pl> Organization: Telekomunikacja Polska NNTP-Posting-Host: 178.42.213.159 X-Trace: 1326370663 unt-rea-a-02.news.neostrada.pl 1257 178.42.213.159:1684 X-Complaints-To: abuse@news.neostrada.pl Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit