🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92299

Re: [A propos] Re: Obiekt jako parametr procedury - problem

#92299
From: Terrmit
Date: Thu, 06 Dec 2007 12:04
60 lines
2076 bytes
Magda S pisze:
> Terrmit pisze:
[ciach]
> 
> A odpowiedź mogłaby być przypuszczalnie taka:
> 
> 
> Są sobie dwa obiekty - X1 i X2. Obydwa mają właściwość Count typu Integer.
> 
> I mamy taki kod:
> 
> 
> X1.Count := 1;
> X2.Count := 2;
> 
> with X1 do
> begin
>   with X2 do
>   begin
>     Count := 3;
>   end;
> end;
> 
> 
> 
> I teraz zagadka: do której właściwości odnosi się "Count := 3"? do 
> X1.Count czy X2.Count?
> 
> Zastanów się DOBRZE, zanim odpowiesz...
> 
Count := 3 odnosi się do X2

> 
> A jak już odpowiesz, to popatrz na coś podobnego: jest forma Form1 i 
> jakaś kontrolka na tej formie. I teraz mamy tak:
> 
> 
> procedure TForm1.<jakas nazwa>;
> var
>   X: TComponent;
> begin
>   ... // tu zmiennej X nadaje się wartość
> 
>   if X is TControl then
>   begin
>     with TControl(X) do
>     begin
>       Color := clRed;
>     end;
>   end;
> 
> 
> jak myślisz, co zrobi się czerwone: kontrolka, czy forma? Sprawdź zanim 
> odpowiesz.
> 
Czerwona będzie kontrolka.

Bawimy się w quizy?

Sławek
Technical Details
Message-ID: <fj8on4$2pb$1@atlantis.news.tpi.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.internetia.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
References: <fj7cka$ldq$1@nemesis.news.tpi.pl> <fj899b$8j6$1@atlantis.news.tpi.pl> <fj8fdm$ehh$1@news.onet.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.internetia.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: Terrmit <terrmitv@poczta.onet.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: [A propos] Re: Obiekt jako parametr procedury - problem
Date: Thu, 06 Dec 2007 13:04:08 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 60
Message-ID: <fj8on4$2pb$1@atlantis.news.tpi.pl>
References: <fj7cka$ldq$1@nemesis.news.tpi.pl> <fj899b$8j6$1@atlantis.news.tpi.pl> <fj8fdm$ehh$1@news.onet.pl>
NNTP-Posting-Host: fge166.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: atlantis.news.tpi.pl 1196942884 2859 83.13.160.166 (6 Dec 2007 12:08:04 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Thu, 6 Dec 2007 12:08:04 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.9 (X11/20071115)
In-Reply-To: <fj8fdm$ehh$1@news.onet.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit