*** 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
bug0206.pp sets with variable ranges doesn't work
bug0211.pp a and not a is true !!! (if a:=boolean(5))
bug0212.pp problem with properties