Czy konieczne przeciążenie?

Article View: pl.comp.lang.delphi

Article #346558

Back to pl.comp.lang.delphi Previous Next

#346558

From: ExM
Date: Tue, 17 Apr 2018 08:10

12 lines
1880 bytes

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

Technical Details

Message-ID: <739fd10b-8ba0-409c-87ac-ef1bc74697a2@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!k65-v6no2841764ita.0!news-out.google.com!u64-v6ni5345itb.0!nntp.google.com!e130-v6no2828736itb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Received: by 10.107.150.18 with SMTP id y18mr462338iod.107.1523952601158;        Tue, 17 Apr 2018 01:10:01 -0700 (PDT)
X-Received: by 2002:a9d:5220:: with SMTP id e32-v6mr56602oth.3.1523952600761; Tue, 17 Apr 2018 01:10:00 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!k65-v6no2841764ita.0!news-out.google.com!u64-v6ni5345itb.0!nntp.google.com!e130-v6no2828736itb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.delphi
Date: Tue, 17 Apr 2018 01:10:00 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=37.47.80.42; posting-account=doVJ9goAAADBJ8SWJkb9r0xXWw28WhQg
NNTP-Posting-Host: 37.47.80.42
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <739fd10b-8ba0-409c-87ac-ef1bc74697a2@googlegroups.com>
Subject: Czy konieczne przeciążenie?
From: ExM <grupywyt-nijto@mv.net.pl>
Injection-Date: Tue, 17 Apr 2018 08:10:01 +0000
Lines: 15
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit