Article View: pl.comp.lang.delphi
Article #334781Re: Jak przechowywać Interfejsy?
From: konsul41
Date: Thu, 12 Jan 2012 12:53
Date: Thu, 12 Jan 2012 12:53
28 lines
1873 bytes
1873 bytes
Wygląda na to że będzie działało zgodnie z oczekiwaniami
test
ListaObiektow:=TListaObiektow.Create();
Obiekt:=TEtykieta.Create;
ListaObiektow.Add('Etykieta',Obiekt);
Obiekt:=TCaptionEdit.Create;
ListaObiektow.Add('CaptionEdit',Obiekt);
ShowMessage(IntToStr(ListaObiektow.Count));
ShowMessage(IObiekt(ListaObiektow.Items['Etykieta']).ClassImpName);
ShowMessage(IObiekt(ListaObiektow.Items['CaptionEdit']).ClassImpName);
Dostaję komunikaty
2
TEtykieta
TCaptionEdit
funkcja
GetClassImpName: String;
begin
result:=Self.ClassName;
end;
w każdej z klas implementującej
pozostaje pytanie czy to będzie działac po rozłożeniu do dll?
Technical Details
Message-ID:
<4f0ed7c3$0$1460$65785112@news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!goblin2!goblin.stu.neva.ru!feeder2.cambriumusenet.nl!feed.tweaknews.nl!209.197.12.242.MISMATCH!nx01.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-02.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> <4f0ecf67$0$1257$65785112@news.neostrada.pl> <4f0ecfcc$0$1277$65785112@news.neostrada.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!goblin2!goblin.stu.neva.ru!feeder2.cambriumusenet.nl!feed.tweaknews.nl!209.197.12.242.MISMATCH!nx01.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-02.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> <4f0ecf67$0$1257$65785112@news.neostrada.pl> <4f0ecfcc$0$1277$65785112@news.neostrada.pl> Subject: Re: Jak przechowywać Interfejsy? Date: Thu, 12 Jan 2012 13:53:23 +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: 29 Message-ID: <4f0ed7c3$0$1460$65785112@news.neostrada.pl> Organization: Telekomunikacja Polska NNTP-Posting-Host: 178.42.213.159 X-Trace: 1326372803 unt-rea-a-01.news.neostrada.pl 1460 178.42.213.159:1735 X-Complaints-To: abuse@news.neostrada.pl Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit