*** empty log message ***

This commit is contained in:
florian 1999-02-04 12:46:42 +00:00
parent 33e7e22e1a
commit cbfcfd4435
2 changed files with 19 additions and 0 deletions

18
bugs/bug0212.pp Normal file
View 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.

View File

@ -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