mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 11:09:39 +02:00
23 lines
380 B
ObjectPascal
23 lines
380 B
ObjectPascal
|
|
{$ifdef fpc}{$mode objfpc}{$endif}
|
|
|
|
type
|
|
rec = record
|
|
ch : char;
|
|
end;
|
|
|
|
TBadObject = class
|
|
a: array[0..0,0..0] of array[0..0] of rec;
|
|
public
|
|
property a0: char read a[0,0][0].ch;
|
|
end;
|
|
|
|
var
|
|
BadObject: TBadObject;
|
|
begin
|
|
BadObject := TBadObject.Create;
|
|
BadObject.a[0,0][0].ch := 'a';
|
|
if BadObject.a0 = BadObject.a[0,0][0].ch then;
|
|
BadObject.Free;
|
|
end.
|