🚀 go-pugleaf

> Najpierw snip:
> 
> type
>   TDynByteArray = array of byte;
>   TTest         =
>     class
>       private
>         B : TDynByteArray;
>         function GetB(APos:longint):Byte; // ****
>       public
>         property Data[APos:longint]:Byte read GetB;
>         property Data2 : TDynByteArray read B;
>     end;
> 
> function TTest.getB(APos:Longint):Byte;
> begin
>   Result:=B[APos];
> end;
> 
> procedure blah(test:TTest);
> begin
>   SetLength(test.B, 123);
>   test.B[10]:=123;             // *
> end;
> 
> var
>   test : TTest;
> 
> begin
>   test := TTest.Create;
>   blah(test);
>   Writeln(test.Data[10]);
>   SetLength(test.Data2, 1337); // **
>   test.Data2[123] := 123;      // ***
> end.
> 
> > chce ochronic pola przd modyfikacja ( nawet z wnetrza unitu ) - ale
> > nie chce angazowac w to ddoatkowej procedury ( typu getPole )  i
> > odstawiania jej w properyty -- jest to mozliwe ??
> 
> 1. W obrębie jednostki kompilacji wszystko jest "public", w Object
>    Pascalu jest tak w przeciwieństwie do większości języków, z racji
>    braku "przyjaźni" klas. Więc, w obrębie pojedynczego unitu możesz
>    sobie o enkapsulacji najwyżej pomarzyć. Patrz - fragment
>    oznaczony (*).
> 
> 2. Musisz zrobić proxy metode, patrz (****).Inaczej tego nie zrobisz,
>    a jeżeli  wystawisz całego dynamicznego arraya to kompletnie
>    tracisz enkapsulacje/ochrone tego pola. Patrz (***). I do
>    tego nie tylko zawartości, ale też stanu tegoż arraya, patrz (**).
> 

dzieki za podpowiedz .

wiedzialem ze object pascal nie chroni pol obiektow przed dostepem  w obrebie
modulu  ( na poziomie kompilacji ) .
ale to co jest z properyty   to bardo duze niedopatrzenie .

zrobilem cosik takiego  jak ty  ( properyty tylko do odczytu ) 
i odwolale sie do pola properyy Data2  w glownym module . 
i co kompilaor to przpusicil !!


-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl