šŸš€ go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: [A propos] Pozornie oczywista instrukcja WITH, czyli Re: Obiekt jako parametr procedury - problem

#92308
From: Terrmit
Date: Fri, 07 Dec 2007 10:36
60 lines
2198 bytes
Magda S pisze:
> Terrmit pisze:
>> Magda S pisze:
>>> Terrmit pisze:
>> [ciach]
>>> X1.Count := 1;
>>> X2.Count := 2;
>>>
>>> with X1 do
>>> begin
>>>   with X2 do
>>>   begin
>>>     Count := 3;
>>>   end;
>>> end;
>>>
>>>
>>>
>> Count := 3 odnosi się do X2
> 
> 
> 
> 
>   PUUUUUUUUUUUUUUUUDŁŁŁŁŁŁŁŁŁOOOOOOOOOOOOOOO!
> 
> 
> 
> 
Masz dziwny kompilator.
Zirytowałem się i napisałem przykład:
Na formę przylepiamy Button i dwie Labelki

procedure TForm1.Button1Click(Sender: TObject);
begin
   with Label1 do begin
     with Label2 do begin
       Color := clYellow;
     end;
   end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   Label1.Color := clRed;
   Label2.Color := clBlue;
end;

Po kliknięciu w Button żółty robi się Label2 !
label1 pozostaje czerwony!

I gdzie tu puuuuuuuuudłooooooooooooo? Gdzie pułapka?

[ciach]
>> Bawimy się w quizy?
> 
> Nie. Chciałam zwrócić uwagę na pewną pułapkę, w kwestii POZORNIE 
> oczywistej.
Kwestia jest oczywista, a nie POZORNIE oczywista. Sama nie sprawdziłaś.

Sławek
Technical Details
Message-ID: <fjb7v2$f65$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> <fj8on4$2pb$1@atlantis.news.tpi.pl> <fj9f6s$jr9$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]  Pozornie oczywista instrukcja WITH, czyli Re: Obiekt   jako parametr procedury - problem
Date: Fri, 07 Dec 2007 11:36:40 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 60
Message-ID: <fjb7v2$f65$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> <fj8on4$2pb$1@atlantis.news.tpi.pl> <fj9f6s$jr9$1@news.onet.pl>
NNTP-Posting-Host: fge166.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: atlantis.news.tpi.pl 1197024034 15557 83.13.160.166 (7 Dec 2007 10:40:34 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Fri, 7 Dec 2007 10:40:34 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.9 (X11/20071115)
In-Reply-To: <fj9f6s$jr9$1@news.onet.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit