🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #346562

Re: Czy konieczne przeciążenie?

#346562
From: Roman Tyczka
Date: Tue, 17 Apr 2018 17:32
16 lines
1416 bytes
On Tue, 17 Apr 2018 11:41:35 +0200, Piotr S. wrote:

>> procedure Przesun(Left, Top: Integer; var Obiekt: TButton); overload;
>> procedure Przesun(Left, Top: Integer; var Obiekt: TEdit); overload;
>> 
>> 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 :)
>> 
> 
> Generyki

A jak byś to rozwiązał generykami?

-- 
pozdrawiam
Roman Tyczka
Technical Details
Message-ID: <1m49dvuw1zfrs.dlg@tyczka.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin1!goblin.stu.neva.ru!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.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!goblin1!goblin.stu.neva.ru!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
From: Roman Tyczka <noemail@because.no>
Subject: Re: Czy konieczne przeciążenie?
Newsgroups: pl.comp.lang.delphi
User-Agent: 40tude_Dialog/2.0.15.84
MIME-Version: 1.0
Sender: romek@tyczka.no.found
References: <739fd10b-8ba0-409c-87ac-ef1bc74697a2@googlegroups.com> <pb4fg7$5pa$1@news.icm.edu.pl>
Date: Tue, 17 Apr 2018 19:32:58 +0200
Message-ID: <1m49dvuw1zfrs.dlg@tyczka.com>
Lines: 16
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 94.75.90.137
X-Trace: 1523986378 unt-rea-a-01.news.neostrada.pl 679 94.75.90.137:11356
X-Complaints-To: abuse@news.neostrada.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit