mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 07:43:04 +01: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
 | 
			
		||||
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
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user