mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 19:49:31 +02:00
de1af478c3
* do not allow assignments to fields of structured properties (e.g.
property prop: trec read frec; ... instance.prop.frec.a:=5)
* clarified some related error messages
+ several extra tests for the above and related things
git-svn-id: trunk@7250 -
39 lines
585 B
ObjectPascal
39 lines
585 B
ObjectPascal
{ %fail }
|
|
{ %norun }
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif}
|
|
|
|
type
|
|
TTest = class
|
|
private
|
|
FTest: Integer;
|
|
procedure SetTest(const Value: Integer);
|
|
public
|
|
property Test: Integer read FTest write SetTest;
|
|
end;
|
|
|
|
{ TTest }
|
|
|
|
procedure TTest.SetTest(const Value: Integer);
|
|
begin
|
|
Writeln('SetTest called!');
|
|
FTest := Value;
|
|
end;
|
|
|
|
var
|
|
Test: TTest;
|
|
f: file of integer;
|
|
|
|
begin
|
|
Test := TTest.Create;
|
|
Writeln('Test.Test = ', Test.Test);
|
|
Test.Test := 2;
|
|
Writeln('Test.Test = ', Test.Test);
|
|
Read(f,Test.Test);
|
|
Writeln('Test.Test = ', Test.Test);
|
|
|
|
ReadLn;
|
|
end.
|