mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 05:36:15 +02:00
*** empty log message ***
This commit is contained in:
parent
33e7e22e1a
commit
cbfcfd4435
18
bugs/bug0212.pp
Normal file
18
bugs/bug0212.pp
Normal file
@ -0,0 +1,18 @@
|
|||||||
|
program proptest;
|
||||||
|
|
||||||
|
type
|
||||||
|
TMyRec = record
|
||||||
|
Int: Integer;
|
||||||
|
Str: String;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TMyClass = class
|
||||||
|
private
|
||||||
|
FMyRec: TMyRec;
|
||||||
|
public
|
||||||
|
property AnInt: Integer read FMyRec.Int;
|
||||||
|
property AStr: String read FMyRec.Str;
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
end.
|
@ -284,3 +284,4 @@ bug0201.pp problem with record var-parameters and assembler
|
|||||||
bug0202.pp flag results not supported with case
|
bug0202.pp flag results not supported with case
|
||||||
bug0206.pp sets with variable ranges doesn't work
|
bug0206.pp sets with variable ranges doesn't work
|
||||||
bug0211.pp a and not a is true !!! (if a:=boolean(5))
|
bug0211.pp a and not a is true !!! (if a:=boolean(5))
|
||||||
|
bug0212.pp problem with properties
|
||||||
|
Loading…
Reference in New Issue
Block a user