[Delphi] Zakresy widzialnosci - zagadka

[Toster]

Teraz madafaka bedzie cos finezyjnego (thx Force za pomyslowosc w wyginaniu mojej wyobrazni)

Prosze zwrocic uwage na zakresy widzialnosci metody foo

mamy 3 unity, ktore wygladaja o tak:

 

Unit1.pas (defaultowa forma z metoda onCreate)

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation
uses unit3;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  T: TC;
begin
  t := TC.Create;
  t.Bum;
end;

end.
IjZąŚ)U()Ń)Ń(Qą(ą(Ń(ą(źŃ(((QąĄQ(ŃŃ(ź()ąŃŃ)ą)Q()Qź)(MĄ5Q)()Q()Qź)(MĄ5Q())(zZąŚ)U()Ń)Uą)Ń(QąĄQ(ą(      (()ąŃŃ()Q()Q      )(Ń(Q1)(Q1
Ń(ĄQ
Ń(ĄQ
Ń(ĄQ
Ń(ĄQ
Ń(Ńź
ź(QĄmŃtź)()(

 

i teraz zagadka, co zobaczy user po wlaczeniu ?

1) TA, TA, TB, TB

2) TA, TA, TA, TA

3) TA, TA, exception

4) nic nie zobaczy bo sie nie skapiluje

 

Force nie odpowiadaj bo ty juz wiesz

[Blind]

odpowiedz 4, bo D7 nie rozpoznaje slowka 'strict'

[Nvm]

To samo chciałem napisać To jest od 2005 chyba.

[Toster]

to zamiencie strict private na private i juz

[sazian]

mam dziwne wrażenie że 3

ale jestem pod linuxem więc nie sprawdzę

[TSr]

1 albo 3, ze wskazaniem na 1

[Wincenty Kadłubek]

Na pierwszy rzut oka wydaje mi się, że 1. Przynajmniej pod fpc takie rzeczy w ten sposób działają, ale delphi nigdy nie używałem, więc pewności nie mam.

[Toster]

Otoz kto sprawdzil ten wie. Wygrywa opcja nr 1. Wniosek z tego taki ze nalezy czytac hinty/warrningi compilatora aby sie nie zdziwic.

 

Pozdrawiam dociekliwych Toster

[Force]

Toster, czyżbyś pił do mnie?

[Toster]

ciebie juz spacyfikowalem

Rada dla innych