Re: Czy konieczne przeciążenie?

Article View: pl.comp.lang.delphi

Article #346560

Back to pl.comp.lang.delphi Previous Next

#346560

From: Tomek D
Date: Tue, 17 Apr 2018 12:21

28 lines
1837 bytes

W dniu 17.04.2018 o 11:41, Piotr S. pisze:
> W dniu 2018-04-17 o 10:10, ExM pisze:
>> Mam taką zagwozdkę - czy to można zrobić prościej. Mam (dla
>> przykładu) procedurę która np. zmienia położenie różnych obiektów:
>> 
>> procedure Przesun(Left, Top: Integer; var Obiekt: TButton);
>> overload; procedure Przesun(Left, Top: Integer; var Obiekt: TEdit);
>> overload;
>> 
>> Obie te procedury robią to samo - tzn.zmieniają ten sam
>> odziedziczony parametr: Top i Left tylko na obiektach różnego
>> typu.
>> 
>> Czy można zrobić jedną procedurę która obsłuży oba typy obiektów na
>> raz? Teoretycznie przekazując parametr "Obiekt" mógłbym go rzutować
>> - ale to też jakoś mi się nie podoba :)
>> 
>> ExM
>> 
> 
> Generyki

Z armaty do wróbla....
procedure Przesun(Left, Top: Integer; var Obiekt: TControl);

TButton i TEdit dziedziczą z TControl;

Tomek D.

Technical Details

Message-ID: <pb4os5$hmg$1@node2.news.atman.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail

References: <739fd10b-8ba0-409c-87ac-ef1bc74697a2@googlegroups.com> <pb4fg7$5pa$1@news.icm.edu.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
From: Tomek D <bez@dresu.invalid>
Newsgroups: pl.comp.lang.delphi
Subject: Re: Czy konieczne przeciążenie?
Date: Tue, 17 Apr 2018 14:21:26 +0200
Organization: ATMAN - ATM S.A.
Lines: 28
Message-ID: <pb4os5$hmg$1@node2.news.atman.pl>
References: <739fd10b-8ba0-409c-87ac-ef1bc74697a2@googlegroups.com> <pb4fg7$5pa$1@news.icm.edu.pl>
NNTP-Posting-Host: 82.160.134.181
Mime-Version: 1.0
X-Trace: node2.news.atman.pl 1523967685 18128 82.160.134.181 (17 Apr 2018 12:21:25 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Tue, 17 Apr 2018 12:21:25 +0000 (UTC)
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.7.0
In-Reply-To: <pb4fg7$5pa$1@news.icm.edu.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message